首页 > 解决方案 > r中具有不同数据框格式的折线图

问题描述

对于每个部门,我想使用 ggplot 在 r 中以折线图的形式查看他们在过去三周内花费了多少。x 轴是周,y 轴是数量

df <- data.frame(department = c(111,111,111,222,222,222,333,333,333),
             week = c("w1","w2","w3","w1","w2","w3","w1","w2","w3"),
             Amount =c(34,46,34,40,45,56,67,69,75))

 department  week Amount
    111       w1     34
    111       w2     46
    111       w3     34
    222       w1     40
    222       w2     45
    222       w3     56
    333       w1     67
    333       w2     69
    333       w3     75

我无法将设置每个唯一部门值的数据转换为列名及其相应的行数。然后我猜可以使用 ggplot 来完成。

但是他们有什么方法可以用这种格式的数据做图吗?

标签: r

解决方案


这符合您的需求吗?

library(tidyverse)
df <- data.frame(department = c(111,111,111,222,222,222,333,333,333),
                 week = c("w1","w2","w3","w1","w2","w3","w1","w2","w3"),
                 Amount =c(34,46,34,40,45,56,67,69,75))

df %>% 
  mutate(department = as.factor(department)) %>% 
  ggplot(aes(x = week, y = Amount, group = department, col = department)) +
  geom_line() +
  labs(x = "Week", y = "Amount spent", col = "Department")

reprex 包(v1.0.0)于 2021-04-22 创建


推荐阅读