ggplot2中的过滤和计算平均值

发布于 2025-02-12 09:55:43 字数 753 浏览 4 评论 0原文

我正在使用一个大型DF，试图通过不同感兴趣的属性来制作Filterig数据的一些图。假设我的df看起来像：

df（site = c（a，b，c，d，e），subsite = c（w，x，y，z），date = c（01/01/1985，05/01 /1985，1995，1995，24/03/1995），物种= C（1,2,3,4），年份= C（1990,1990,1995,2012），朱利安日= C（1,2,3,4），月份= C（6,7,8,11）

。到目前为止，每年都有一个物种。！

Plot1<- df %>% 
  filter(Site=="A", Year>1985, Species =="2")%>%
  group_by(Month) %>% 
  mutate("Day" = mean(julian day)) %>% 
  ggplot(aes(x=Year, y=Day, color=Species)) +
  geom_boxplot() +
  stat_summary(fun=mean, geom="point", 
               shape=1, size=1, show.legend=FALSE) + 
  stat_summary(fun=mean, colour="red", geom="text", show.legend = FALSE, 
               vjust=-0.7,size=3, aes(label=round(..y.., digits=0)))

谢谢！

原文

I'm working with a large df trying to make some plots by filterig data through different attributes of interest. Let's say my df looks like:

df(site=c(A,B,C,D,E), subsite=c(w,x,y,z), date=c(01/01/1985, 05/01/1985, 16/03/1995, 24/03/1995), species=c(1,2,3,4), Year=c(1985,1990,1995,2012), julian day=c(1,2,3,4), Month=c(6,7,8,11).

I would like plot the average julian day per month each year in which a species was present in a Subsite and Site. So far I've got this code but the average has been calculated for each month over all the years in my df rather than per year. Any help/ directions would be welcome!

Plot1<- df %>% 
  filter(Site=="A", Year>1985, Species =="2")%>%
  group_by(Month) %>% 
  mutate("Day" = mean(julian day)) %>% 
  ggplot(aes(x=Year, y=Day, color=Species)) +
  geom_boxplot() +
  stat_summary(fun=mean, geom="point", 
               shape=1, size=1, show.legend=FALSE) + 
  stat_summary(fun=mean, colour="red", geom="text", show.legend = FALSE, 
               vjust=-0.7,size=3, aes(label=round(..y.., digits=0)))

Thanks!

分享到QQ

分享到微博