Customize the x-axis values (abscissa) in the geom_smooth or geom_ribbon functions of the ggplot2 package

Navigation
2

Although I already have a similar question to the solution presented there scale_x_continuous did not answer my problem.

Normally for this I would use the function factor in ggplot(data,aes(x=factor(TEMPO),y=media) however, as you would like to use the geom_smooth function, or the geom_ribbon function, it has error as shown in figure 3.

The values that you would like to be displayed on the x-axis exactly match the (0, 21, 28, 35, 42, 56) , not (0, 40) as it appears on the chart.

Database: 

pred<-structure(list(BLOCO = c(1, 1, 1, 1, 1, 1), TEMPO = c(0L, 21L, 
28L, 35L, 42L, 56L), media = c(2.45833333333333, 5.04166666666667, 
6.25, 6.25, 7.125, 6.58333333333333), fit = c(1.71363636363637, 
4.71785714285714, 5.3530303030303, 5.80508658008658, 6.07402597402597, 
6.06255411255411), lwr = c(0.60162475497148, 3.92049437827316, 
4.56078873956403, 5.03472573973636, 5.31430598783235, 4.98323404726112
), upr = c(2.82564797230126, 5.51521990744113, 6.14527186649658, 
6.57544742043679, 6.8337459602196, 7.1418741778471)), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))

Image code 1, the output with x-axis (0, 40) 

ggplot(pred,aes(x=TEMPO,y=media)) + 
  geom_point()+
  geom_line(stat="identity",aes(y=fit, x=TEMPO, colour = "sin"))+
  geom_ribbon(stat="identity",aes(ymin=lwr, ymax=upr, x=TEMPO, fill = "band"), alpha = 0.3)+
  scale_colour_manual("",values="blue")+
  scale_fill_manual("",values="grey12")

Image 1

ImageCode2,usingtheoneindicatedinaquestionsimilartothefunctionscale_x_continuous

ticks<-floor(seq(1,6,length.out=6))ggplot(pred,aes(x=TEMPO,y=media))+geom_point()+geom_line(stat="identity",aes(y=fit, x=TEMPO, colour = "sin"))+
  geom_ribbon(stat="identity",aes(ymin=lwr, ymax=upr, x=TEMPO, fill = "band"), alpha = 0.3)+
  scale_colour_manual("",values="blue")+
  scale_fill_manual("",values="grey12")+
  scale_x_continuous(limits=c(1, 6), breaks=ticks, labels=unique(pred$TEMPO))

Iamgem 2

Imagecode3,usingthefunctionfactor

ggplot(pred,aes(x=factor(TEMPO),y=media))+geom_point()+geom_line(stat="identity",aes(y=fit, x=TEMPO, colour = "sin"))+
  geom_ribbon(stat="identity",aes(ymin=lwr, ymax=upr, x=TEMPO, fill = "band"), alpha = 0.3)+
  scale_colour_manual("",values="blue")+
  scale_fill_manual("",values="grey12")

Figure 3

    
asked by anonymous 16.12.2018 / 13:48

1 answer

4

I did not understand why transforming TEMPO , which is a continuous variable, into a categorical variable through the function factor . Note that by leaving TEMPO as it should, I can use scale_x_continuous to create the labels on the x-axis as desired: 

ggplot(pred,aes(x=TEMPO,y=media)) + 
  geom_point()+
  geom_line(stat="identity",aes(y=fit, x=TEMPO, colour = "sin"))+
  geom_ribbon(stat="identity",aes(ymin=lwr, ymax=upr, x=TEMPO, fill = "band"), alpha = 0.3)+
  scale_colour_manual("",values="blue")+
  scale_fill_manual("",values="grey12") +
  scale_x_continuous(breaks = c(0, 21, 28, 35, 42, 56),
                 labels=c(0, 21, 28, 35, 42, 56),
                 minor_breaks = NULL)

    
16.12.2018 / 14:11
How to make 7 columns with Bootstrap? NullPointerException occurring