library(ggplot2)
library(dplyr)
df <- data.frame(longitude = sample(1:100, 100, replace = TRUE),
latitude = sample(1:100, 100, replace = TRUE),
value = runif(100, 0, 1))
df_grouped <- df %>% group_by(latitude) %>% summarise(mean_value = mean(value))
ggplot(df_grouped, aes(x = latitude, y = mean_value)) +
geom_bar(stat = "identity") +
labs(x = "纬度", y = "平均值")
代码执行结果是一张按纬度进行分组并生成的带有“平均值”说明的条形图。