Панель ошибок и упражнения - PullRequest
Новая
       21

Панель ошибок и упражнения

0 голосов
/ 10 октября 2019

Извините за мой плохой английский, за то, что я не вставляю код и задаю вопросы, потому что я не очень знаком с R. Я новичок. Вот мое уведомление и график, который я должен найти:

enter image description here

enter image description here

Я прочитал Rдокументация для решения этой проблемы, но я не смог найти решение.

enter image description here

На самом деле я нашел это с помощью этого сценария, который использовал. Но у меня нет подсказки для добавления панели ошибок, которую я пробовал geom_errorbar(aes(ymin = mean-se, ymax = mean+se)), но наверняка я ошибся 

`rm(list=ls() )
library(dplyr) 
library(ggplot2)
library(ggpubr)
Sparrows <- read.delim("C:/Users/detar/Downloads/Sparrows.txt")
View(Sparrows)
str(Sparrows)
jitter<-filter(Sparrows,day == 4)
x<-ggplot(jitter,
          aes (x = rank_name,
               y = logit.motility,)) + geom_point(colour = "cyan") +
  xlab("Social Rank") + 
  ylab("Logit(Proportion of motile sperm") +
  labs(title =("Ejaculate quality covaries with social rank
 of male House Sparrows")) + 
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_x_discrete(breaks=c("D","S1","S2","S3"), labels=c("Dominant", "Subordinate 1", "Subordinate 2", "Subordinate 3"))
x2<-x + theme_classic() + theme(plot.title = element_text(hjust = 0.5, size = 14))

Спасибо за вашу помощь Бенджамин

Поэтому я добавил 

table <- jitter %>% 
group_by(rank_name) %>% 
summarize(Mean = mean(logit.motility, na.rm=TRUE),
                SEM = sd( logit.motility, na.rm=TRUE) / sqrt(15)
  ) %>% as.data.frame()

x2<-x + theme_classic() + theme(plot.title = element_text(hjust = 0.5, size = 14)) + geom_errorbar(data = summary_table, 
                                          aes(x =rank_name,
                                          y =logit.motility,
                                          ymin =Mean - SEM ,
                                          ymax =Mean + SEM ,
                                          colour = "black",
                                          width = 1 ))

Но произошла ошибка. Предупреждение: игнорирование неизвестной эстетики: y Итак, я ошибаюсь в этих аргументах

И в новое время, я благодарю

1 Ответ

0 голосов
/ 10 октября 2019

Решение этого вопроса идентично решению здесь , но все возможные дубликаты, которые я обнаружил, относятся к гистограммам, поэтому вот один ответ на вопрос о точечных графиках.

Во-первых, данные, так как вопрос не имеет. 

df1 <- iris[4:5]

Теперь график. Можно использовать любой из geom_errorbar или stat:summary с geom = "errorbar". 

library(ggplot2)

ggplot(df1, aes(x = Species, y = Petal.Width)) +
  geom_point(aes(colour = "lightblue")) +
  scale_color_manual(values = "lightblue") +
  stat_summary(geom = "point", fun.y = mean) +
  stat_summary(geom = "errorbar", fun.data = mean_se, 
               position = "dodge", width = 0.2)

enter image description here

...