Блог

У меня вопрос о затенении области при использовании R. У меня есть таблица данных, которая выглядит следующим образом:

Теперь я хочу отобразить x и y, что я могу сделать, используя plot(x, y, type =’l’) . Но вопрос в том, как я могу заштриховать область графика (от 0 до бесконечности по оси y) всякий раз, когда мое значение «z» в таблице данных равно 1?

Я действительно ценю ваше желание помочь..

Большое вам спасибо.

Я бы предложил следующий ggplot2 подход. Попробуйте создать ссылочную переменную when z==1 , чтобы вы могли определить координаты для оси x, а затем использовать geom_ribbon() следующим образом:

 library(ggplot2)
#Data
df <- data.frame(x=2:9,
                 y=(2:9)^2,
                 z=c(rep(1,5),rep(0,3)))
#Create reference
df$Ref <- ifelse(df$z==1,df$x,NA)
#Plot
ggplot(df,aes(x=x,y=y)) 
  geom_line() 
  geom_ribbon(aes(x=Ref,ymin=0,ymax=Inf),fill='blue',alpha=0.4)
  

Вывод:

Другие варианты могут быть:

 #Create reference
df$Ref <- ifelse(df$z==1,df$x,NA)
df$Ref1 <- ifelse(df$z==1,1,NA)
#Option 1
ggplot(df,aes(x=x,y=y)) 
  geom_line() 
  geom_ribbon(aes(x=Ref,ymin=y,ymax=Inf),fill='blue',alpha=0.4)
#Option 2
ggplot(df,aes(x=x,y=y)) 
  geom_line() 
  geom_ribbon(aes(ymin=Ref1,ymax=Inf),fill='blue',alpha=0.4)