问题描述
我想基于数据框创建堆积面积图。
Time <- c("W37/19","W38/19","W39/19","W40/19","W41/19")
Basis <- c(20.07,20.07,20.07)
AdStock <- c(5.88,5.60,5.34,5.09,4.86)
TV <- c(0,0.54,0.93,1.14)
display <- c(0.07,0.21,0.33,0.35,0.36)
df_graph <- data.frame(Time,Basis,AdStock,TV,display)
数据是时间序列数据,“时间”是德国日历周,应保持此顺序。
我要做的第一件事就是转换长格式的数据。
library(tidyr)
df_graph <- pivot_longer(df_graph[,c("Time","Basis","AdStock","TV","display")],-Time)
第二,我将df_graph $ name转换为一个因子并颠倒顺序,因为我想保留堆叠的原始顺序。
library(forcats)
df_graph$name <-factor(df_graph$name,levels = c("Basis","display"))
df_graph$name <- fct_rev(df_graph$name)
然后我要绘制数据。
library(ggplot2)
p <- ggplot(df_graph,aes(x=Time,y=value,fill=name))
p <- p + geom_area()
p
该图显示了两个轴以及图例,但没有数据。
如果我只用一系列递增的数字代替“时间”中的日历周数
df_graph$Time <- seq(1:5)
它可以工作,但不能与我的X轴值一起使用。
我也不认为将“名称”转换为因数是有问题的,因为即使删除了这两行,我仍然无法获得绘图中的数据。
我尝试了长格式的其他方法(例如,收集),还尝试将数字的递增系列(1:5)用作x值,然后将其替换为scale_x_discrete,但我的区域始终消失了。
我想念什么?
非常感谢。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)