Сохранение уникальных ggplots на основе переменной ID

Question

Я пытаюсь использовать цикл для создания и сохранения отдельных диаграмм по идентификационному номеру. Я не уверен, что делаю цикл неправильно или это связано с настройкой данных. На графике, на котором я остановился, есть данные для обоих идентификаторов, нанесенных на него, но он сохраняется дважды на основе имен, определенных командой ggsave. Я чувствую, что упускаю что-то простое.

Данные, которые я использую, выглядят так:

df <- data.frame(ID = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2), 
                   Time = c("1","2", "1", "2", "1", "2", "1", "2", "1", "2", "1", "2"), 
                   Category = c("Red", "Red", "Red", "Red", "Blue", "Blue", "Blue", "Blue", "Yellow","Yellow", "Yellow", "Yellow"), 
                   Score = c(0, 0, 0, 0, 1, 2, 0, 3, 1, 1, 3, 2))

А это мой код:

idlist <-unique(df$ID)

for (i in idlist) {
  plot<- df %>%
    ggplot(aes(x=Category, y=as.numeric(Score), fill=Time))+
    geom_bar(color="black", stat="identity", position=position_dodge(.8), width=0.75)+
    geom_text(aes(x=Category, y=Score,label=Score), position=position_dodge(width=1), hjust=0.5, vjust=-.25, size=3)+
    labs(x="Category",y="Score")

  ggsave(filename=paste("plot",id[i],".png",sep=""), plot,
         device = function(...) png(..., units="in",res=200))
}

Answer 1

Просто добавьте filter внутри цикла, чтобы построить график на текущем циклическом идентификаторе:

idlist <-unique(df$ID)

for (i in idlist) {
  plot <- df %>%
    filter(ID == i) %>%
    ggplot(aes(x=Category, y=as.numeric(Score), fill=Time)) +
    geom_bar(color="black", stat="identity", 
             position=position_dodge(.8), width=0.75) +
    geom_text(aes(x=Category, y=Score, label=Score), 
              position=position_dodge(width=1), hjust=0.5, vjust=-.25, size=3) +
    labs(x="Category", y="Score")

  ggsave(filename=paste("plot",  i, ".png", sep=""), plot,
         device = function(...) png(..., units="in", res=200))
}

В качестве альтернативы используйте базовые R by и избегайте явного цикла for и unique()Звоните:

by(df, df$ID, function(sub) {
  plot <- ggplot(sub, aes(x=Category, y=as.numeric(Score), fill=Time)) +
            geom_bar(color="black", stat="identity", 
                     position=position_dodge(.8), width=0.75) +
            geom_text(aes(x=Category, y=Score, label=Score), 
                      position=position_dodge(width=1), hjust=0.5, vjust=-.25, size=3) +
            labs(x="Category", y="Score")

  ggsave(filename=paste0("plot", sub$id[[1]], ".png"), plot,
         device = function(...) png(..., units="in", res=200))
})