r - ggplot 提示将代码应用于数据

Question

我有一个奇怪的问题，我自己无法解决。

这就是我的原始数据的样子:

> dput(df[1:25])
structure(c(2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 3, 1, 2, 
1, 1, 1, 1, 1, 2, 1, 1), .Names = c("AT1G01050", "AT1G01090", 
"AT1G01320", "AT1G01470", "AT1G01560", "AT1G02150", "AT1G02560", 
"AT1G02780", "AT1G02920", "AT1G03090", "AT1G03130", "AT1G03220", 
"AT1G03230", "AT1G03330", "AT1G03630", "AT1G03680", "AT1G03870", 
"AT1G04080", "AT1G04170", "AT1G04270", "AT1G04410", "AT1G04480", 
"AT1G04690", "AT1G04710", "AT1G04810"))

我尝试使用下面的函数创建一个 ggplot:

dat <- as.data.frame(df[1:25]))
dat$factor <-1
ggplot(dat,aes(x=factor,fill=factor(dat))) +
  geom_bar(binwidth=5) +
  coord_flip()

结果我收到了这个错误:

Error in sort.list(y) : 'x' must be atomic for 'sort.list'
Have you called 'sort' on a list?

但...

当我尝试在具有完全相同(至少在我看来)结构的示例数据上使用相同的代码时，它昨天工作正常，但现在它没有......这两个数据集都被称为 Named numeric :

> dput(data)
structure(c(2, 8, 3, 4, 1, 2, 3, 5, 4, 7, 6, 4, 1), .Names = c("Mark", 
"Greg", "Sonya", "Monica", "Tiana", "Arra", "Armin", "Hera", 
"Cyrus", "Pier", "Tina", "Hector", "Markus"))

Answer 1

我使用了您的示例数据，但对两者都适用。我相信这就是你要找的:

dat <- as.data.frame(data)
dat$factor <-1
ggplot(dat,aes(x=as.numeric(factor),fill=factor(dat[,1]))) + geom_bar(binwidth=5) + coord_flip()