ошибки предупреждений loess в geom_smooth в R - PullRequest
Новая
       5

ошибки предупреждений loess в geom_smooth в R

0 голосов
/ 10 января 2020

Почему следующий код успешно добавляет плавность в эти точки данных? Когда диапазон составляет 0,5, генерируется предупреждение, которое говорит: 

  all data on boundary of neighborhood. make span bigger

Но даже если установить диапазон на 1, вы не получите диапазон, но некоторые точки данных связаны линиями.

Этот вопрос говорит о том, что данные оси X имеют несколько записей для некоторых точек, и это происходит здесь. Это предлагает добавить немного джиттера к данным. Я сделал это с geom_jitter() (не включено в код ниже), но это не решило проблему. Я также попытался использовать последовательность чисел в качестве значений оси X вместо даты, и это тоже не сработало.

Воспроизводимый код следует ниже.

Спасибо за любые идеи. 

myfile<-'https://raw.githubusercontent.com/sjkiss/NDP/master/Data/membership_data_NDP.csv'
members<-read.csv(myfile, colClasses=c('Date', 'numeric','numeric', 'numeric', 'numeric', 'numeric','numeric', 'Date', 'character'))

theme_set(theme_bw())
members %>% 
  select(population, votes_previous_election, seats_previous_election, members, date, recent_election) %>% 
  mutate(., members_per_capita=members/population, members_votes=members/votes_previous_election, members_seats=members/seats_previous_election) %>% 
  rename(., `Members\nper_capita`=members_per_capita, `Members\nper_vote`=members_votes, `Members\nper_seat`=members_seats) %>%
  gather(Variable, Value, 7:9) %>% 
  ggplot(., aes(x=date, y=Value, group=recent_election))+geom_point(aes(col=factor(recent_election)))+scale_color_discrete(name = "Recent Election")+scale_x_date() +facet_wrap(~Variable, scales='free')+geom_smooth(method='loess', span=0.5)
warnings()```
...