ggplot(games, aes( x = average_rating, y = playing_time)) +
geom_point() +
labs(title="Playing time by average rating", x="Rating", y = "Playing time [min/d]") +
theme_bw()games.table <- games[1:30, c("game_id", "category", "playing_time")]
better.colnames <- c("Game ID", "Category", "Playtime [min/d]")
table <- kable(games.table,
col.names = better.colnames,
digits = c(0, 0, 1), #how many decimal places are shown for numeric columns
align = c("llc"),
caption = "Games Player Table"
) |>
add_header_above(c("Player" = 1, "Information" = 2)) |>
pack_rows(index = c("Group 1" = 10, "Group 2" = 10, "Group 3" = 10))
table| Game ID | Category | Playtime [min/d] |
|---|---|---|
| Group 1 | ||
| 1 | Economic,Negotiation,Political | 240 |
| 2 | Card Game,Fantasy | 30 |
| 3 | Abstract Strategy,Medieval | 60 |
| 4 | Ancient | 60 |
| 5 | Economic | 90 |
| 6 | Civilization,Nautical | 240 |
| 7 | Abstract Strategy | 20 |
| 8 | Civilization,Fantasy | 120 |
| 9 | Exploration | 90 |
| 10 | Fantasy,Travel | 60 |
| Group 2 | ||
| 11 | Card Game,Farming,Negotiation | 45 |
| 12 | Ancient,Mythology | 60 |
| 13 | Negotiation | 120 |
| 14 | Negotiation | 25 |
| 15 | Bluffing,Negotiation,Science Fiction | 90 |
| 16 | Economic | 60 |
| 17 | Collectible Components,Dice,Fighting,Print & Play | 5 |
| 18 | Miniatures,Racing,Science Fiction | 120 |
| 19 | American West,Bluffing,City Building | 45 |
| 20 | Science Fiction | 90 |
| Group 3 | ||
| 22 | Adventure,Exploration,Fantasy | 240 |
| 23 | Fantasy,Political,Wargame | 360 |
| 24 | Civilization,Negotiation,Political,Science Fiction,Space Exploration,Wargame | 240 |
| 25 | Exploration,Fantasy,Wargame | 200 |
| 26 | Civilization,Economic,Medieval,Renaissance | 360 |
| 27 | Economic,Political,Wargame | 340 |
| 28 | Card Game,Humor,Negotiation,Political | 180 |
| 29 | Fighting,Humor | 120 |
| 30 | Adventure,Electronic,Exploration,Fantasy,Fighting | 90 |
| 31 | Adventure,Exploration,Fantasy,Fighting,Miniatures | 90 |
Good Boy and John Smith
The result of the calculation is 8.5397342.
I’ll be pretentious and link my ORCiD here.