r - 如何将离散因子水平视为连续的？

Question

我有一个数据框，其中的列最初是任意标记的。稍后，我想将这些级别更改为数值。以下脚本说明了该问题。

library(ggplot2)
library(reshape2)

m <- 10
n <- 6

nam <- list(c(),letters[1:n])
var <- as.data.frame(matrix(sort(rnorm(m*n)),m,n,F,nam))
dtf <- data.frame(t=seq(m)*0.1, var)
mdf <- melt(dtf, id=c('t'))

xs <- c(0.25,0.5,1.0,2.0,4.0,8.0)
levels(mdf$variable) <- xs

g <- ggplot(mdf,aes(variable,value,group=variable,colour=t))
g +
    geom_point() +
    #scale_x_continuous() +
    opts()

产生了这个情节。

“可变”量在图上均匀分布，即使在数值上这不是真的。如何获得正确的 x 轴间距？

Answer 1

我认为您可以简单地通过将变量转换为数字来做到这一点：

mdf$variable <- as.numeric(as.character(mdf$variable))

g <- ggplot(mdf,aes(variable,value,group=variable,colour=t))
g +
    geom_point() +
    #scale_x_continuous() +
    opts()

Answer 2

您需要将因子转换为数字：

mdf$numVariable <- as.numeric(as.character(mdf$variable))

g <- ggplot(mdf,aes(numVariable,value,group=variable,colour=t))
g +
    geom_point() +
    #scale_x_continuous() +
    opts()

或者只是在调用 ggplot 时进行转换：

g <- ggplot(mdf,aes(as.numeric(as.character(variable)),value,group=variable,colour=t))