ggplot x-axis метки метки метки

Question

Я составил участок в r, используя ggplot2. Коды заключаются в следующем. Мой набор данных - net_d. Соотношение варьируется от 0,5 до 1,0. D2, идет от 10 - 1.

p<-ggplot(net_d,aes(Ratio,D2)) 
p<-p+geom_point()+geom_line() 
p<-p+xlab("Multiples of degrees of nodes within community to between community") 
p<-p+ylab("Faction of vertices classfied correctly") 
#p<-p+scale_x_continuous(breaks=c(seq(10,1,by=-1))) 
p<-p+xlim(10,1)+ylim(0.5,1) 
p<-p+theme_set(theme_grey()) 
print(p) 

мне нужно иметь метки в оси х 10 - 1, с шагом 1. Поэтому каждая точка участка будет иметь соответствующую галочку в точке х -ось. Я комментирую возможное решение. Но это перевернуло метки на 1-10. Мне это нужно по-другому.

Answer 1

Это должно работать:

library(ggplot2) 
coords <- rev(seq(1:10)) 
vals <- c(rep(1,6),0.98,0.73,0.64,0.66) #approximately extracted from your graph 
df <- as.data.frame(rbind(coords,vals)) 
p <- ggplot(df,aes(x=coords,y=vals)) 
p <- p + geom_point() + geom_line() 
p <- p + xlab("Multiples of degrees of nodes within community to between community") 
p <- p + ylab("Faction of vertices classfied correctly") 
p <- p + theme_bw() 
p <- p + ylim(0.5,1) 
p <- p + scale_x_reverse(breaks=c(seq(1,10))) 

Вот результат:

Надеется, что это помогает

Answer 2

Вы можете использовать scale_x_reverse:

#using the cars database 
p<-ggplot(cars,aes(speed,dist)) 
p<-p+geom_point()+geom_line() 
p<-p+xlab("Multiples of degrees of nodes within community to between community") 
p<-p+ylab("Faction of vertices classfied correctly") 
p<-p+scale_x_reverse(breaks=c(seq(1,25,by=1))) 
p<-p+ylim(1,100) 
p<-p+theme_set(theme_grey()) 
print(p)