Boucle de colonnes et de l'intrigue personnalisé même type de colonnes sur la même parcelle à l'aide de ggplot2

Question 1

Compte tenu de dataframes df1 et df2 comme suit:

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

La parcelle série de temps pour 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")

Out:

Maintenant, j'espère en boucle toutes les colonnes, mais en fonction df2, ce qui signifie que pour chaque columnssi son type sont identiques, puis tracez sur la même parcelle et, enfin, de les enregistrer avec le nom de type.

Pour dataset df1, nous allons enfin générer des trois parcelles: price.png, quantity.png et pct_change.png.

Comment pourrais-je réaliser que basé sur le code ci-dessus? Sincères remerciements à l'avance.

Question 2

Je pense que quelque chose comme cela devrait faire ce que vous voulez. (Mais pour le moment, je suis en cours d'exécution dans une erreur avec ggsave qui doit être fixe, étant donné que je suis en utilisant ggplot2 3.3.5?) Espérons que cela fonctionne pour les autres.

# 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

Je pense que quelque chose comme cela devrait faire ce que vous voulez. (Mais pour le moment, je suis en cours d'exécution dans une erreur avec ggsave qui doit être fixe, étant donné que je suis en utilisant ggplot2 3.3.5?) Espérons que cela fonctionne pour les autres.

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

Merci, je l'utilise ggplot2 3.3.5 ainsi, je suis en mesure de sauver des parcelles sans aucune erreur.

Boucle de colonnes et de l'intrigue personnalisé même type de colonnes sur la même parcelle à l'aide de ggplot2

La question

La meilleure réponse

Dans d'autres langues

Cette page est dans d'autres langues

Populaires dans cette catégorie

Questions populaires dans cette catégorie