Döngü sütunları ve arsa ggplot2 kullanarak aynı arsa üzerinde özelleştirilmiş aynı tip sütunlar

Question 1

Verilen veri çerçeveleri df1 ve df2 aşağıdaki gibi:

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))

İçin arsa zaman serileri 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")

Dışarı:

Şimdi tüm sütunları temel almayı umuyorum df2, her biri için anlamı columns eğer varsa type aynıdırlar, sonra onları aynı arsa üzerinde çizerler ve son olarak isimleriyle kaydederler type.

Veri kümesi için df1, sonunda üç arsa üreteceğiz: price.png, quantity.png ve pct_change.png.

Yukarıdaki koda dayanarak bunu nasıl başarabilirim? Şimdiden içten teşekkürler.

Question 2

Bence böyle bir şey istediğini yapmalı. (Ama şu an için ggplot2 3.3.5 kullanıyorum göz önüne alındığında düzeltilmesi gereken ggsave ile ilgili bir hatayla karşılaşıyorum?) Umarım başkaları için çalışır.

# 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"))
}

Jon Spring · Answer 1 · 2021-11-24T05:16:52

Bence böyle bir şey istediğini yapmalı. (Ama şu an için ggplot2 3.3.5 kullanıyorum göz önüne alındığında düzeltilmesi gereken ggsave ile ilgili bir hatayla karşılaşıyorum?) Umarım başkaları için çalışır.

# 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"))
}

Teşekkürler, kullanıyorum ggplot2 3.3.5 ayrıca, herhangi bir hata yapmadan arazileri kaydedebiliyorum.

Döngü sütunları ve arsa ggplot2 kullanarak aynı arsa üzerinde özelleştirilmiş aynı tip sütunlar

Soru

En iyi cevabı

Diğer dillerde

Bu sayfa diğer dillerde

Bu kategoride popüler

Popüler soruları bu kategoride