如何融合我的数据以创建条形图？

Question

我想使用 ggplot 创建一个条形图来比较不同活动的持续时间。在 y 轴上，我希望有时间以小时和分钟为单位，在 x 轴上是活动标签。

我正在苦苦挣扎的是如何转换我的数据以及如何转换为时间格式。

此时时间以 10 分钟间隔表示，例如。 460 /60 = 7 小时 40 分钟

我的数据格式如下：

structure(list(Sleep = c(460, 420, 500, 600, 280, 700, 420, 500, 
600, 460), `Tv and video` = c(200, 60, 140, 120, 0, 300, 80, 
210, 140, 340), `Main job` = c(0, 0, 500, 0, 420, 0, 0, 0, 0, 
0), `Social life` = c(210, 260, 60, 20, 40, 0, 410, 180, 160, 
70), Eating = c(90, 80, 50, 120, 90, 60, 120, 90, 60, 120), `Travel by purpose` = c(180, 
140, 0, 60, 190, 10, 70, 70, 100, 140), `Other personal care` = c(60, 
70, 40, 30, 90, 60, 130, 60, 0, 140), `Food management` = c(110, 
190, 10, 90, 0, 40, 0, 70, 90, 20), `Radio and music` = c(0, 
0, 0, 110, 0, 0, 0, 0, 60, 0), `Childcare of own household member` = c(30, 
50, 80, 0, 0, 20, 0, 0, 140, 0)), row.names = c(NA, 10L), class = "data.frame")

非常感谢您的帮助

Answer 1

你可以试试

library(tidyverse)                                                                                                                                                                                                                                                                                                                                                                                                                                                           
df %>% 
  gather(k, v) %>% 
  mutate(v=v/60) %>% 
  mutate(k = gsub(" ", "\n", k)) %>% 
  ggplot(aes(reorder(k,-v), v)) + 
   geom_col() +
   ylab("Hours") + xlab("Activities")

可以使用这个添加文本

df %>% 
  gather(k, v) %>% 
  mutate(k = gsub(" ", "\n", k)) %>% 
  group_by(k) %>% 
  summarise(v=sum(v)/60) %>% 
  ggplot(aes(reorder(k,-v), v, label = round(v,1))) + 
  geom_col() +
  geom_text(nudge_y = 2) +
  ylab("Hours") + xlab("Activities")

Answer 2

您可以首先将您的数据列收集成具有“类”和“值”两列的长格式。然后你可以按类对值求和。最后，您可以制作一个条形图，在其中直接使用值（stat =“identity”）。主题在 x 轴上旋转标签的轴。

# Libraries
library(tidyr)
library(dplyr)
library(ggplot2)

# Gathering, summarizing and plotting data
data %>% 
  gather("class", "value", 1:10) %>%
  group_by(class) %>%
  summarise(total = sum(value)) %>%
  ggplot(., aes(class, total)) + geom_bar(stat = "identity") + theme(axis.text.x = element_text(angle = 90, hjust = 1))