給定資料幀df1，df2如下所示：
df1：
df1 <- structure(list(date = structure(c(1L, 2L, 4L, 5L, 6L, 7L, 8L,
9L, 10L, 11L, 3L), .Label = c("2021/1/31", "2021/2/1", "2021/2/10",
"2021/2/2", "2021/2/3", "2021/2/4", "2021/2/5", "2021/2/6", "2021/2/7",
"2021/2/8", "2021/2/9"), class = "factor"), value1 = c(9.76,
9.76, 9.88, 9.31, 9.71, 9.56, 9.27, 9.22, 9.21, 9.08, 8.78),
value2 = c(6.84, 6.88, 6.95, 6.65, 6.94, 6.85, 6.66, 6.66,
6.6, 6.5, 6.25), value3 = c(6.33, 6.21, 6.31, 6.2, 6.56,
6.36, 6.36, 6.25, 6.1, 6.02, 5.76), value4 = c(10.68, 10.91,
11, 10.49, 10.8, 10.5, 10.2, 9.85, 10.03, 9.8, 9.51), value5 = c(7.77,
7.84, 7.83, 7.44, 7.83, 7.77, 7.6, 7.46, 7.46, 7.39, 7.29
)), class = "data.frame", row.names = c(NA, -11L))
df2：
df2 <- structure(list(type = structure(c(2L, 2L, 3L, 3L, 1L), .Label = c("pct_change",
"price", "quantity"), class = "factor"), columns = structure(1:5, .Label = c("value1",
"value2", "value3", "value4", "value5"), class = "factor")), class = "data.frame", row.names = c(NA,
-5L))
繪制時間序列df1：
library(ggplot2)
library(data.table)
df1$date <- as.Date(df1$date)
df1.m <- melt(df1, id = "date") # convert to long format
ggplot(data = df1.m,
aes(x=date, y = value, colour=variable))
geom_line(size = 1, alpha = 1)
ggsave("df1.png")
出去：
現在我希望回圈所有列但基于df2，這意味著對于每個列columns，如果type它們相同，則將它們繪制在同一個圖上，最后將它們保存為type.
對于 dataset df1，我們最終將生成三個圖：price.png、quantity.png和pct_change.png。
我怎樣才能根據上面的代碼實作這一目標？在此表示衷心的感謝。
uj5u.com熱心網友回復：
我認為這樣的事情應該做你想做的。（但目前我遇到了 ggsave 錯誤，鑒于我使用的是 ggplot2 3.3.5，應該修復該錯誤？）希望它適用于其他人。
# add "type" variable to df1.m
df1.m2 = merge(df1.m, df2, by.x = "variable", by.y = "columns")
# for each "type", filter the data to that type, plot, and save
for(my_type in unique(df1.m2$type)) {
g <- ggplot(data = df1.m2[df1.m2$type == my_type,],
aes(x=date, y = value, colour=variable))
geom_line(size = 1, alpha = 1)
ggsave(paste0(my_type,".png"))
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/364779.html
下一篇：如何創建相同的雙離散y軸