精通r语言，能为大家排忧解难

留下你的问题，在线解答

兄弟，我想问一下怎么统计数据的行数和列数？这个怎么编程？

请问一下，Rstudio 运行时，输入的变量一直显示找不到，怎么回事？

楼主，麻烦看一下6楼

第一行数据默认为标题怎么处理？

楼主好，我想请问一下，我用R ggplot2画热图能用rescale或者其它函数把色标梯度设置成10的次方变化吗？就像下图。先提前感谢~

你好，我在生成系数矩阵时遇到一些问题，生的系数矩阵如下；

dtm <- DocumentTermMatrix(corpus) # 构建稀疏矩阵
# 把稀疏矩阵转换为数据框，并且只选择word_freq里面的word列里面特征值
dtm <- as.data.frame(as.matrix(dtm)) %>% select(word_freq$word)
wordfreq_dtm <- create_term_frequency_counts(dtm) # 计算所有词频
dtm2 <- suppressWarnings(cbind(dtm, sms[-2])) # 把稀疏矩阵和之前重塑的数据合并
dtm2$label <- as.factor(dtm2$label) # 把类别转换为因子型
table(dtm2$label) # 查看类别个数
prop.table(table(dtm2$label)) # 查看类别占比
## 剔除一半正常短信的样本
index <- rownames(dtm2[dtm2$label == 'ham', ]) # 获取正常短信样本行索引
set.seed(1234)
index2 <- sample(index, length(index)*0.5) # 抽取其中的一半行索引
dtm3 <- dtm2[-as.numeric(index2), ] # 剔除这一半样本
最后一步出错，主要是因为index是character型，例如character.0.007。不能直接转化为numer型，求解。谢谢
可以提供代码。

私信了

求求了

你好，我改了还是报错
c1<-c("white","LightBlue1","Firebrick1")
p <- ggplot(dictribution.m, aes(variable, bins)) + geom_tile(aes(fill = abundance),colour = "white") +scale_fill_gradientn(colors=c1, values = rescale(0.1,0.00001,0)) + theme(axis.text.x = element_text(angle=90, hjust=1, vjust=0.5),panel.grid =element_blank())+scale_y_discrete(position = "right")
报错是：
Error in stats::approxfun(values, xs) :
need at least two non-NA values to interpolate