R行和列总数的例子
这个例子显示了如何执行R行动可以用来添加表的行和列的总数,取代任何表中的null值0。给定一个输入表这样…
…的例子产生这样的结果表。
注意,输入表应该有一个初始的列名称的每一行,然而它可能有数目不详的附加列。
使用执行SQL操作,我们可能会使用三个独立的循环结构实现这一目标。第一个循环将取代null 0的值列。第二个循环将每个列的总和,第三个循环会和每一行,生成动态SQL引用的每个列。
使用执行R行动,我们可以使用以下R语句实现相同的结果。源表中提供了一个名为Table1表参数,结果表存储在一个表的数据集命名的结果。
上面的评论每个R语句解释其目的。
/ *创建一个向量的列名称,不包括第一列* /
vnames < - Table1_col_names_ [1]
/ *创建一个数据帧在vnames商店每一列数值向量* /
df < - data.frame(拉普兰人(as.numeric mget (vnames)))
/ *数据帧中的任何空值替换为0 * /
df (is.na (df)] < - 0
/ *添加行总数列命名总量数据帧* /
df美元总数< - rowSums (df)
/ *创建一个新的包含列的数据帧和数据帧* /
dfTot < - colSums (df)
/ *添加列和数据帧的数据帧数值*。
dfTot df < - rbind (df)
/ *创建一个字符第一表列向量* /
col1 < - get (Table1_col_names_ [1])
/ *添加一个条目名为总数列* /结束
col1 < - c (col1“总数”)
/ *创建一个新的数据帧的结果表使用col1和数字数据存储在df1 * /
ResultTable < - data.frame (col1 df)
/ *设置为col1列名称在结果表中第一列的名称源表* /
colnames (ResultTable) [1] < - Table1_col_names_ [1]
/ *删除“Table1_”前缀ResultTable数据集的列名称* /
名(ResultTable) < - gsub (^ . * ?_”、“”,名字(ResultTable))
/ *复制Table1 ResultTable数据集元数据,使用int(4)的类型和长度总计列* /
ResultTable_col_types_ < - c (Table1_col_types_“int”)
ResultTable_col_lengths_ < - c (Table1_col_lengths_ 4)