Ошибка в FUN (X [[i]], ...): объект не найден при добавлении geom_text с фасетом - PullRequest
Новая
       41

Ошибка в FUN (X [[i]], ...): объект не найден при добавлении geom_text с фасетом

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

Добавление строки geom_text (data = dat_text, mapping = aes (x, y, label = label)) дает мне следующую ошибку: Ошибка в FUN (X [[i]], ...): объект 'sex'не найдено.Это настолько неважно, что я понятия не имею, что с этим делать.

Без последней строки ggplot генерирует график очень хорошо.

dat_text <- data.frame(
  label = c("Most unisex year", "Marion Jones wins gold in Olympic", "Jackie Robinson to major leauge", "Jamie Hunter Cartwright appears on Bonanza", "The Little Mermaid sways Ariel towards girls"),
  cyl   = c("Jessie", "Marion", "Jackie", "Jamie", "Ariel"),
  x     = c(1940, 1940, 1940,1940, 1940),
  y     = c(.3, .4, .2,.2,.3))

# make the plot here
data.babyname.all %>% 
  ggplot( mapping = aes(x = year, y = perc, fill = sex)) +
  geom_density(stat = "identity", position = "stack" , show.legend = F ) +
  scale_fill_manual(values = c('#E1AEA1','#9ABACF'))  + 
  geom_point(data = most.unisex.year.and.value, mapping = aes(x =  year, y = perc), 
             size = 3, 
             fill = "white", 
             color = "black", 
             shape = 21) +
  facet_wrap(~name, ncol= 7, nrow=5) +
  theme_minimal() + #set theme
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.background = element_blank(),
        panel.border = element_blank(),
        text = element_text(size = 12),
        panel.grid = element_blank(),
        axis.title.x= element_blank(),
        axis.title.y=element_blank(),
        plot.background = element_blank(),
        axis.ticks.x = element_line(color = "black"),
        axis.ticks.length = unit(0.1, "cm")) + 
  scale_y_continuous(breaks = c(0,.50,1), labels= c("0%", "50%","%100")) +
  scale_x_continuous(breaks = c(1940, 1960, 1980,2000), labels= c('1940', "'60","'80",'2000')) +
  geom_text(data = dat_text, mapping = aes(x , y , label = label))

изображение того, что я получаю без последней строки

1 Ответ

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

Вам необходимо объединить свои data.frame объекты.Вот способ воспроизвести вашу ошибку: 

library(dplyr)
library(ggplot2)
mylabels<-names(mtcars)
iris %>% 
  ggplot(aes(Species,fill=Species))+geom_bar()+
  geom_text(data = mtcars,aes(mpg,disp,label=mylabels))

Ошибка в FUN (X [[i]], ...): объект «Вид» не найден

Это работает: 

iris1<-iris1[1:11,]
iris1 %>% 
mutate(label.s=mylabels) %>% 
  ggplot(aes(Petal.Length,Sepal.Length,col=Species))+geom_point()+
  geom_text(aes(label=label.s))
...