And so they’re not going to be - their activism is not going to be to get the government to do things. ![]() And young people have grown up never seeing the government do anything except turn the lights off now and then. JONATHAN HAIDT: I’m not optimistic about the American government, but I am very optimistic about America’s future, because I think people our age who grew up expecting that the point of civic engagement is to be active, so we can make the government fix civil rights or something, we’ve got to make the government do something. ![]() ![]() Our conversation preceded this cultural-political season, but offers provocative perspective on it.ĭR. The liberal view of capitalism as essentially exploitative may remain alive and well, he says, but the ironic truth of history is that capitalism, while championed by conservatives, actually generates liberal values as it takes root in societies. Now he’s studying the relationship between capitalism and human conscience. Biological anthropologist Melvin Konner has studied the evolution of childhood social psychologist Jonathan Haidt gained prominence with his work on why good people are divided by politics and religion. KRISTA TIPPETT, HOST: It was supposed to be a discussion of culture and conscience with two social scientists. Pacman_moves % filter(state = 1) %>% distinct(step, direction, colour, vulnerability) %>% as.data.MS. The goal of this function, is to compute the different states of a ghost, according to the bonus points eaten and, of course, the current Pac-Man position at a determined step. Then, I added ( in a weird way I might say) the polygons coordinates for the body and the eyes.īlinky_ghost % mutate( body = pmap(. #> x y colour X0 Y0 state_x state_y direction state step noise_x Here, in preparation for gganimate, I also added a column step before merging the new upgraded pacman ( i.e., with the Pac-Man state column) with the pacman_state defined earlier.īlinky_ghost % mutate( state = list( 1 : 4)) %>% unnest( "state") %>% mutate( step = 1 : n(), noise_x = rnorm( n(), mean = 0, sd = 0.05), noise_y = rnorm( n(), mean = 0, sd = 0.05) ) #> # A tibble: 20 x 12 Pacman %>% unnest( c( "x", "y")) %>% mutate( state_x = sign(x - lag(x)), state_y = sign(y - lag(y)), state = case_when( ( is.na(state_x) | state_x %in% 0) & ( is.na(state_y) | state_y %in% 0) ~ list( c( "open_right", "close_right")), state_x = 1 & state_y = 0 ~ list( c( "open_right", "close_right")), state_x = -1 & state_y = 0 ~ list( c( "open_left", "close_left")), state_x = 0 & state_y = -1 ~ list( c( "open_down", "close_down")), state_x = 0 & state_y = 1 ~ list( c( "open_up", "close_up")) ) ) %>% unnest( "state") #> # A tibble: 300 x 6 #> x y colour state_x state_y state #> #> 1 10 6 Pac-Man NA NA open_right #> 2 10 6 Pac-Man NA NA close_right #> 3 10 6 Pac-Man 0 0 open_right #> 4 10 6 Pac-Man 0 0 close_right #> 5 10 6 Pac-Man 0 0 open_right #> 6 10 6 Pac-Man 0 0 close_right #> 7 10 6 Pac-Man 0 0 open_right #> 8 10 6 Pac-Man 0 0 close_right #> 9 10 6 Pac-Man 0 0 open_right #> 10 10 6 Pac-Man 0 0 close_right #> # … with 290 more rows What do you think &, did I go too far or not enough ? (I am planning to add the ghosts □) /nkfbti1Etd ![]() Maybe I went too far with #ggplot2 and #gganimate …□ Well, it was not that easy after-all … But, I am going to go through my code here (you might be interested to actually look at the commits history. The only thing on the feed was “contaminated/deaths and covid-19” curves made with ggplot2 and a few with gganimate … Let’s say, it was not as funny and interesting as I was hoping for … Then, I’ve got an idea, what if I can do something funny and not expected with ggplot2 and gganimate? My first thought, was let’s draw and animate Pac-Man, that should not be that hard! I was playing around with my data on ‘all’ the movies I have seen so far ( mcanouil/IMDbRating) and looking on possibly new ideas of visualisation on twitter using #ggplot2 and #gganimate (by the way the first time I played with gganimate was at useR-2018 (Brisbane, Australia), just before and when released the actual framework). It was the 21 st of March ( for the sake of precision), around 10 pm CET ( also for the sake of precision and mostly because it is not relevant). Library(ggpacman) animate_pacman( pacman = pacman, ghosts = list(blinky, pinky, inky, clyde), font_family = "xkcd" )
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |