Как я могу сделать этот график для каждого столбца в моем фрейме данных, используя sapply и ggplot2?

library(ggplot2)
library(reshape2)
moltendf <- melt(df, id.vars=c("day","station"))
allplots <- ggplot(data=moltendf, aes(x=station, y=value)) +
             geom_point() + facet_grid(variable ~ day)

но мне неясно, хотите ли вы, чтобы все они были одним большим размеченным сюжетом, или вы хотите *apply и создавать / сохранять много разных сюжетов для каждого полицейского типа. Если последнее, то с расплавленными данными вы можете:

plotfun <- function(x,y) { 
                 a <- ggplot(data=x, aes(x=station, y=value)) +
                 geom_point() + facet_grid(.~ day)
                 pdf(paste0(y,".pdf"))
                 print(a)
                 dev.off()
}

mapply(plotfun, split(moltendf, moltendf$variable), as.list(1:3))

Как сказал baptiste, пакет reshape2 поможет вам. Вот полный код:

library(reshape2)
df <- melt(df, id = c("day", "station"))
Cop.Plot <- ggplot(data = df, aes(x = station, y = value)) + geom_point()
Cop.Plot + facet_grid(variable ~ day)

Я рекомендую использовать day в качестве фактора и отсортировать уровни в хронологическом порядке с помощью:

day <- factor(day, levels = c('5-Aug', '10-Aug', '17-Aug'))

В противном случае они сортируются по алфавиту.

Вы это имели в виду?

library(reshape2)
ggdata <- melt(df,id=1:2,variable.name="Measure",value.name="Mean")
ggplot(ggdata,aes(x=station, y=Mean)) +
  geom_point() + 
  facet_grid(Measure~day)

Производит это:

Обратите внимание, что дни указаны в неправильном порядке.