在我的考试中,我必须在r中构建一些散点图。我创建了一个具有4个变量的数据框架。使用此数据框架,我想将回归线添加到我的散点图。
我的数据框架的名称是" alle"。可变名称为:演示,tot,besch,usd
使用此代码,我试图对回归线排列,但得到以下结果:
reg1<- lm(tot~demo, data=alle)
Warning messages:
1: In model.response(mf, "numeric") :
using type = "numeric" with a factor response will be ignored
2: In Ops.factor(y, z$residuals) : ‘-’ not meaningful for factors
这是" Alle"的结构
str(alle)
'data.frame': 11 obs. of 4 variables:
$ demo : chr "498.300.775" "500.297.033" "502.090.235" "503.170.618" ...
$ tot : Factor w/ 11 levels "4.846.423","4.871.049",..: 1 3 4 5 2 8 7 6 10 9 ...
$ besch: Factor w/ 9 levels "68,4","68,6",..: 5 7 3 2 2 1 1 4 6 8 ...
$ usd : Factor w/ 44 levels "0,68434","0,72584",..: 26 30 29 23 28 22 24 25 15 14 ...
尝试将列"演示"转换为
的数字alle$demo <- as.numeric(as.character(alle$demo))
它将列转换为数字,但现在排满了" na"s。
我认为我所有的列都必须是数字。如何将所有4列转换为数字并最终绘制回归线。
数据:
> head(alle,6)
demo tot besch usd
1 498.300.775 4.846.423 69,8 1,3705
2 500.297.033 4.891.934 70,3 1,4708
3 502.090.235 4.901.358 69,0 1,3948
4 503.170.618 4.906.313 68,6 1,3257
5 502.964.837 4.871.049 68,6 1,3920
6 504.047.964 5.010.371 68,4 1,2848
谢谢
尝试以两个步骤进行操作。首先摆脱点,然后用小数点替换逗号,然后将其替换为数字。
alle[] <- lapply(alle, function(x) gsub("\.", "", x))
alle[] <- lapply(alle, function(x) as.numeric(sub(",", ".", x)))
注意:
上面的解决方案在两个方面被打破,以使其可读性。以下操作相同,但仅需一个lapply
循环,因此,如果数据集很大,则应更快。如果数据集是小到中等的,则可能是两个步骤解决方案。
alle[] <- lapply(alle, function(x){
as.numeric(sub(",", ".", gsub("\.", "", x)))
})
with dplyr
:
library(dplyr)
alle %>%
mutate_all(as.character) %>%
mutate_at(c("besch","usd"),function(x) as.numeric(as.character(gsub(",",".",x)))) ->alle
demo tot besch usd
1 498.300.775 4.846.423 69.8 1.3705
2 500.297.033 4.891.934 70.3 1.4708
3 502.090.235 4.901.358 69.0 1.3948
4 503.170.618 4.906.313 68.6 1.3257
5 502.964.837 4.871.049 68.6 1.3920
6 504.047.964 5.010.371 68.4 1.2848