小编Pir*_*ate的帖子

如何将总和添加到表中并获得R中每个单元格的比例

我试图通过将每行除以行总和得到每个单元格的比例,但是R给了我一个错误说,

data.table $ Country:$ operator对原子向量无效

我怎样才能解决这个问题?另外,如何将整个列和行的总和值添加到data.table?我跑的时候会得到这个值addmargins(data.table),但是我想将这些值附加到我的数据帧中.


这是我的代码:

x = c(40,50,30,30,50)                
y = c(40,20,30,40,45)                              
data.table = rbind(x,y)   
data.table
dimnames(data.table)=list("Country"=c("England","Germany"),"Score"=c("Q-Score","T-score","X-score","Y-score","Z-score"))
addmargins(data.table)
table(data.table$Country,data.table$Score/rowSums(table(data.table&Country,data.table$Score)))
Run Code Online (Sandbox Code Playgroud)

r margin contingency

7
推荐指数
1
解决办法
1万
查看次数

在删除R中的行时,如何自动缩小R数据帧中的行号

我难以正确缩小数据帧中的行号.

我有一个名为"mydata"的数据集,我使用R从文本文件导入.数据框有大约200行,10列.

我使用以下方法删除了行号3,7,9,199:

mydata <- mydata[-c(3, 7, 9, 199),]
Run Code Online (Sandbox Code Playgroud)

当我运行此命令时,行3,7,9,199从列表中消失,但行号不会自动缩减到196,而是保持在200.我觉得这些行号都附加到每个"行"作为数据帧的一部分?

我该如何解决这个问题?

令我更困惑的是,当我使用R Studio 导入文本文件时,我没有任何问题.(当我运行上述命令时,我看到196).但是当使用R时,我无法更改与列表中的实际行数匹配的数据帧中的行号.

任何人都可以告诉我如何解决这个问题?

row r dataframe

6
推荐指数
1
解决办法
3759
查看次数

如何在R中创建虚拟变量

我试图通过从HOUSE列中提取数字来为"好"和"坏"创建一个虚拟变量.我想要做的是,如果HOUSE栏中的值是1,2,9,那么房子是"好的",否则"坏")

我粘贴了dputdata.frame对象的输出.

## dput output assigned to the housetype variable

structure(list(Price = c(10L, 20L, 31L, 41L, 52L, 63L, 45L, 63L, 
64L, 45L), Location = structure(c(4L, 7L, 6L, 3L, 2L, 4L, 5L, 
1L, 6L, 8L), .Label = c("AK", "ATL", "BOS", "DC", "GA", "MA", 
"NYC", "PA"), class = "factor"), HOUSE = c(1L, 1L, 1L, 2L, 6L, 
7L, 8L, 9L, 10L, 11L)), .Names = c("Price", "Location", "HOUSE"
), class = "data.frame", row.names = c(NA, -10L))
Run Code Online (Sandbox Code Playgroud)

如何以每个变量仍包含其他信息的方式创建虚拟变量?(价格和位置)

谢谢!!!

r

3
推荐指数
1
解决办法
6409
查看次数

如何直接输入数据以生成表示列联表的data.frame?

我试图直接将以下数据输入R(代表一个列联表)

Area        School    Coffeshop    Hospitals    Parks    Totatl  
Washington     142          120           20       20       302   
Seattle        120          140           30       40       330 
Total          262          260           50       60       632
Run Code Online (Sandbox Code Playgroud)

我的代码是这样的:

n<-c("Area","School","Cofeeshop","Hospitals","Parks","Total") 
x<-c("Washington",142,120,20,20,302)
y<-c("Seattle",120,140,30,40,330)
z<-c("Total",262,260,50,60,631)
data<-cbind(n,x,y,z)
data<-data.frame(data)
Run Code Online (Sandbox Code Playgroud)

r contingency

2
推荐指数
1
解决办法
5765
查看次数

标签 统计

r ×4

contingency ×2

dataframe ×1

margin ×1

row ×1