Ошибка: эстетика должна быть либо длины 1, либо такой же, как данные (4): y, заполните - PullRequest
Новая
       10

Ошибка: эстетика должна быть либо длины 1, либо такой же, как данные (4): y, заполните

0 голосов
/ 30 января 2019

У меня проблема с тем, чтобы через панель ggplot2 сделать ошибку с моим набором данных.

Вот код, кажется, будет нормально без панели ошибок: 

library(psych)
library(ggplot2)
Clean$Creativity = as.factor(Clean$Creativity)
Clean$Facial = as.factor(Clean$Facial)
Clean2 = describeBy(Clean$Attractiveness, list(Clean$Creativity, Clean$Facial), mat=TRUE, digits=2)

Clean2
names(Clean2)[names(Clean2)== 'group1'] = 'Creativity'
names(Clean2)[names(Clean2)=='group2'] = 'Facial'

levels(Clean2$Creativity)[levels(Clean2$Creativity)=='0'] = 'Less Creative'
levels(Clean2$Creativity)[levels(Clean2$Creativity)=='1'] = 'Creative'
levels(Clean2$Facial)[levels(Clean2$Facial)=='0'] = 'Less Attractive'
levels(Clean2$Facial)[levels(Clean2$Facial)=='1']='Attractive'

Clean2$se = Clean2$sd/sqrt(Clean2$n)

Clean2
limits = aes(ymax = mean + (1.96*se), ymin=mean - (1.96*se))

dodge = position_dodge(width=0.9)

apatheme=theme_bw()+
  theme(panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        panel.border=element_blank(),
        axis.line=element_line(),
        text=element_text(family='Times'))

plot.2way = ggplot(Clean2, aes( x = Facial, y = Attractiveness, fill = Personality))+
  geom_bar(stat = 'identity', position=dodge)+
  geom_errorbar(limits, position=dodge, width=0.25)+
  apatheme+
  ylab('Attractiveness')+
  scale_fill_grey()

plot.2way

Вот ошибка, которую яполучил:

Ошибка: Эстетика должна быть либо длина 1 или совпадает с данными (4): y, заполните

Вот ссылка моего набора данных: https://drive.google.com/file/d/1RLhZSaWDx5pVrrtlGAv-qGRG5uVeJcrM/view?usp=sharing

...