thesimpsons

KO | EN

gitlite — search

#hacktoberfest #ai #go #android #machine-learning #deep-learning #linux #docker #nodejs #java #windows #cli #mcp #openai

(★ 13)

Package (dataset): The Simpsons episodes dataset

thesimpsons 최신버젼 다운로드

최종 버전 다운로드 (.zip)

// repository documentation

Was this content helpful?

★ 0 (0 ratings)

The Simpsons dataset
================

This dataset contains the characters, locations, episode details, and
script lines for approximately 600 Simpsons episodes, dating back to
1989. Data got from
[Kaggle](https://www.kaggle.com/wcukierski/the-simpsons-by-the-data).

This package contains four datasets:

- `characters`: The Simpsons characters information.

``` r
head(characters)
```

##   id             name  normalized_name  sex
    ## 1  7         Children         children <NA>
    ## 2 12 Mechanical Santa mechanical santa <NA>
    ## 3 13       Tattoo Man       tattoo man <NA>
    ## 4 16 DOCTOR ZITSOFSKY doctor zitsofsky <NA>
    ## 5 20         Students         students <NA>
    ## 6 24       Little Boy       little boy <NA>

- `episodes`: metadata related to each The Simpsons episode.

``` r
head(episodes[, 1:6])
```

##   id                                                 title
    ## 1 10                                     Homer's Night Out
    ## 2 12                                    Krusty Gets Busted
    ## 3 14                                        Bart Gets an F
    ## 4 17 Two Cars in Every Garage and Three Eyes on Every Fish
    ## 5 19                                  Dead Putting Society
    ## 6 21                                    Bart the Daredevil
    ##   original_air_date production_code season number_in_season
    ## 1        1990-03-25            7G10      1               10
    ## 2        1990-04-29            7G12      1               12
    ## 3        1990-10-11            7F03      2                1
    ## 4        1990-11-01            7F01      2                4
    ## 5        1990-11-15            7F08      2                6
    ## 6        1990-12-06            7F06      2                8

- `locations`: The Simpsons world locations.

``` r
head(locations)
```

##   id                          name               normalized_name
    ## 1  1                        Street                        street
    ## 2  2                           Car                           car
    ## 3  3 Springfield Elementary School springfield elementary school
    ## 4  4                    Auditorium                    auditorium
    ## 5  5                  Simpson Home                  simpson home
    ## 6  6                       KITCHEN                       kitchen

- `script_lines`: the text spoken during each The Simpsons episode
    (including details about which character said it and where).

``` r
head(script_lines[, 1:4])
```

##     id episode_id number
    ## 1 9549         32    209
    ## 2 9550         32    210
    ## 3 9551         32    211
    ## 4 9552         32    212
    ## 5 9553         32    213
    ## 6 9554         32    214
    ##                                                                                                                                                                                                    raw_text
    ## 1                                Miss Hoover: No, actually, it was a little of both. Sometimes when a disease is in all the magazines and all the news shows, it's only natural that you think you have it.
    ## 2                                                                                                                                                         Lisa Simpson: (NEAR TEARS) Where's Mr. Bergstrom?
    ## 3                                                                                  Miss Hoover: I don't know. Although I'd sure like to talk to him. He didn't touch my lesson plan. What did he teach you?
    ## 4                                                                                                                                                                  Lisa Simpson: That life is worth living.
    ## 5 Edna Krabappel-Flanders: The polls will be open from now until the end of recess. Now, (SOUR) just in case any of you have decided to put any thought into this, we'll have our final statements. Martin?
    ## 6                                                                                                                               Martin Prince: (HOARSE WHISPER) I don't think there's anything left to say.

## Examples

### Race plot: spoken words by character by season

``` r
library("thesimpsons")
library("dplyr")
library("ggplot2")
library("gganimate")
library("hrbrthemes")
```

``` r
# merge script lines with characters and episodes data
script_lines %>%
  filter(!is.na(word_count)) %>%
  left_join(characters, by = c("character_id" = "id")) %>%
  left_join(episodes, by = c("episode_id" = "id")) -> script_lines_full

n_chars <- 10 # include only the 10 most speaking characters
script_lines_full %>%
  select(name, word_count, season) %>% # use just char name, word_count, season
  group_by(name, season) %>% # by name & season
  summarise(wc = sum(word_count)) %>% # get the sum of word counts
  mutate(wc_cs = cumsum(wc)) %>% # generate the cum sum of wc
  group_by(season) %>%
  mutate( # create the ranking (top 10 to plot)
    rank = min_rank(-wc_cs) * 1,
    val_lbl = paste0(" ", wc_cs)
  ) %>%
  filter(rank <= n_chars) -> char_wc_by_season

ggp <- ggplot(char_wc_by_season, aes(rank,
  group = name,
  fill = as.factor(name), color = as.factor(name)
))
ggp <- ggp + geom_tile(
  aes(y = wc_cs / 2, height = wc_cs, width = 0.9),
  alpha = 0.8, color = NA
)
ggp <- ggp + 
  geom_text(aes(y = 0, label = paste(name, " ")), vjust = 0.2, hjust = 1) +
  geom_text(aes(y = wc_cs, label = val_lbl, hjust = 0)) +
  coord_flip(clip = "off", expand = FALSE) +
  scale_x_reverse() +
  guides(color = FALSE, fill = FALSE) +
  labs(
    subtitle = "Words by seasons",
    title = "Season: {closest_state}",
    x = ""
  ) +
  theme_ipsum_rc() +
  theme(
    plot.title = element_text(hjust = 0, size = 22),
    axis.ticks.y = element_blank(),
    axis.text.y = element_blank(),
    axis.title.x = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    plot.margin = margin(1, 1, 1, 4, "cm")
  )

ggp <- ggp +
  transition_states(season, transition_length = 4, state_length = 1) +
  ease_aes("cubic-in-out")
animate(ggp, nframes = 100, fps = 30, duration = 18)
```

![](https://raw.githubusercontent.com/jcrodriguez1989/thesimpsons/master/README_files/figure-gfm/unnamed-chunk-7-1.gif)

thesimpsons

thesimpsons 최신버젼 다운로드

오늘의 추천 프로젝트

Was this content helpful?

Recent Feedback

thesimpsons

thesimpsons 최신버젼 다운로드

오늘의 추천 프로젝트

Was this content helpful?

Recent Feedback

Download README