ggplot2 - 来自数值/整数数据的离散X轴值

Question

我有一些数据，我正在尝试使用ggplot2进行图形化，其中x轴是数值/整数值。绘制图形时，我希望图形只显示数据集中存在的x的值，而不会将值添加到x轴（离散值）。下面的完全可重现的示例演示了这个问题：即使提供的x轴值为1,3,25，生成的图形在x轴上呈现0,5,15,20,25。我尝试过铸造这些价值观，以及尝试一种独立的规模，但没有一个似乎有效。

编辑尽管x轴上的值是数字/整数，但它们代表因素（即试验中的人数，发动机中的汽缸数等）并且不是连续值。

#Example 
library(ggplot2) 

row1 <- c(1, 1) 
row2 <- c(3, 2) 
row3 <- c(25, 10) 

data <- data.frame() 
data <- rbind(data, row1) 
data <- rbind(data, row2) 
data <- rbind(data, row3) 
names(data) <- c("A", "B") 

qplot(A, B, data = data, geom="line") 


#Things Tried 
qplot(factor(A), B, data = data, geom="line") #geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic? 
qplot(as.factor(A), B, data = data, geom="line") #geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic? 
qplot(character(A), B, data = data, geom="line") #Error in character(A) : invalid 'length' argument 
qplot(as.character(A), B, data = data, geom="line") #geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic? 
qplot(A, B, data = data, geom="line") + scale_x_discrete(breaks = data$A) #Works, but values are too far apart 

Answer 1

这是你在追求什么？

#START WITH SAMPLE DATA SET AS PER QUESTION 
library(ggplot2) 
row1 <- c(1, 1) 
row2 <- c(3, 2) 
row3 <- c(25, 10) 

data <- data.frame() 
data <- rbind(data, row1) 
data <- rbind(data, row2) 
data <- rbind(data, row3) 
names(data) <- c("A", "B") 

#PRODUCE SOLUTION, MODIFY DATASET 
df <- data 
df$id <- 1:nrow(df) 
df$Labels <- as.factor(df[,"A"]) 

#RENDER PLOT 
ggplot(df,aes(id,B)) + 
    geom_path() + 
    scale_x_continuous(breaks=df$id,labels=df$Labels) + 
    labs(x="A") 

#EQUIVALENT QPLOT CODE: 
qplot(id, B, data = df, geom="line") + 
    scale_x_continuous(breaks = df$id,labels=df$Labels) + 
    labs(x="A") 

将会产生以下结果：

对于什么是值得的，我个人认为你的数据误导了上面的介绍，并会倾向于代表它以下列方式：

ggplot(df,aes(id,B)) + 
    geom_bar(stat="identity",aes(fill=Labels),color="black") + 
    scale_x_continuous(breaks=df$id,labels=paste("Trial:",df$Labels)) + 
    labs(x="A",fill="Trial Number",title="Trial XYZ Results") + 
    theme_bw() + 
    theme(legend.position=c(0,1),legend.justification=c(0,1))