Блог

Я делаю некоторый прогноз, связанный с пакетом каретки.Результат этого прогноза вы можете увидеть ниже

 data_for.cm_rpart <- data.table(Data = c(final_predictions.rpart$Customs_duties,final_predictions.rpart$Predictions),                      
                                              Date = c( rep(final_predictions.rpart$Date )),
                                              Type = c(#rep("Train data", nrow(data_train)),
                                                rep("Test data", nrow(final_predictions.rpart)),
                                                rep("Forecast", nrow(final_predictions.rpart))))
              
              ggplot(data_for.cm_rpart, aes(Date, Data, color = Type), palette = c("#0073C2FF", "#FC4E07"))  
                geom_line(size = 0.9, alpha = 0.75)
  

На этом графике вы можете видеть, что последняя строка красного цвета, а эта строка фактически перекрывается зеленым цветом.

Но мне нужно изменить это и сделать похожую диаграмму в цветах, как показано на диаграмме ниже:

Итак, кто-нибудь может мне помочь, как изменить цвета и сделать первую диаграмму похожей на вторую?

Возможно, вам следует установить альфа внутри aes и изменить его последним, используя scale_alpha_manual так, чтобы 2 строки имели разную прозрачность.

 # example data
data_for.cm_rpart = data.frame(Date = 2017:2020, 
                               Data = c(1:4, 3:4, 3:4), 
                               Type = c(rep('forecast',4), 
                                        rep('test data', 4)))

# plot
ggplot(data_for.cm_rpart, aes(Date, Data, color = Type, alpha = Type), 
       palette = c("#0073C2FF", "#FC4E07"))  
  geom_line(size = 0.9) 
  scale_alpha_manual(values = c(1, 0.5))