Линии мистерии вдоль оси Y (ggplot2, R) - PullRequest
Новая
       7

Линии мистерии вдоль оси Y (ggplot2, R)

0 голосов
/ 27 февраля 2020

Я строю данные временных рядов, используя ggplot, и эти загадочные линии появились, когда я установил свою ось X в качестве даты. Раньше я просто использовал объединенную строку года и месяца. Линии тогда не появлялись, но мне нужно было преобразовать переменную даты продажи в класс Date, чтобы шкала x была правильной. Я не сталкивался с этой ошибкой на других своих графиках и использовал ту же функцию для преобразования моей переменной времени в класс даты.

В моих данных четыре столбца: 1) строка с датой продажи, 2) средняя цена квантиля по месяцам, 3) квантиль, 4) моя строка даты продажи, но как класс Даты. 

# Melt contains the sale date in string format, the value I want to plot, and quantile that mean corresponds to
  melt <- rbind(melt1, melt2, melt3, melt4, melt5)
  colnames(melt) <- c("saledate", "mean", "Quantile")

# Here I create my Date class variable to be plotted on the x axis
  melt$time <- lubridate::ymd(melt$saledate)
# So my legend is discrete  
  melt$Quantile <- as.factor(melt$Quantile)

  tiff(paste("./PLOTS/allquantiles_", varofinterest.string, ".tif"), width=6, height=5, res=200, units='in')
  a <- ggplot(melt, aes(x=time, y=mean, group=Quantile,
                        color=Quantile)) +
    geom_smooth() +
    xlab(paste(xlab)) + ylab(paste(ylab)) +
    ggtitle(paste("Average", varofinterest.title, "by Month: All Quantiles")) +
    theme(panel.grid = element_blank(),
          plot.title = element_text(hjust=0.5, face = 'bold', size = 14))
  print(a)
  dev.off()

Мой возвращаемый сюжет выглядит следующим образом .. enter image description here

Я никогда раньше не сталкивался с подобной проблемой с ggplot. Любые решения или рекомендации приветствуются.

...