Question

我想知道如何在R中正确进行矢量计算。

我有一个像这样的数据集。

ports:
    - "5433:5432"

，我也有一个列表stay cops graduation hinshi_#0 54722 6945 83674 hinshi_#1 13928 1798 21616 hinshi_#2 320 49 485 hinshi_#3 36010 4984 55184 hinshi_#4 7484 916 10618 hinshi_#5 6 0 6 hinshi_#6 6605 830 9741 hinshi_#7 2 0 5。我在这里要做的是将数据表的每一行与列表分开。让我来收集数据的第一行，

l<-c(20124  2682 30138)

我希望它们像hinshi_#0 54722 6945 83674一样-用列表的第一个值计算向量的第一个值，第二个和第三个也必须相同。有什么好办法解决吗？谢谢。

Answer 1

提供我对您的理解正确，这是一个选择

l <- c(20124, 2682, 30138)

df / sapply(l, rep, each = nrow(df))
#                  stay       cops   graduation
#hinshi_#0 2.719241e+00 2.58948546 2.7763620678
#hinshi_#1 6.921089e-01 0.67039523 0.7172340567
#hinshi_#2 1.590141e-02 0.01826995 0.0160926405
#hinshi_#3 1.789406e+00 1.85831469 1.8310438649
#hinshi_#4 3.718943e-01 0.34153617 0.3523126949
#hinshi_#5 2.981515e-04 0.00000000 0.0001990842
#hinshi_#6 3.282151e-01 0.30947054 0.3232132192
#hinshi_#7 9.938382e-05 0.00000000 0.0001659035

样本数据

df <- read.table(text =
    "stay cops graduation
'hinshi_#0'  54722 6945      83674
'hinshi_#1'  13928 1798      21616
'hinshi_#2'    320   49        485
'hinshi_#3'  36010 4984      55184
'hinshi_#4'   7484  916      10618
'hinshi_#5'      6    0          6
'hinshi_#6'   6605  830       9741
'hinshi_#7'      2    0          5", header = T)

Answer 2

l是@Maurits Ever的答案中提供（更正）的向量。我们可以使用purrr：

as.data.frame(purrr::map2(df,l,function(x,y) x/y))

结果（可以设置格式以删除科学显示）：

    stay       cops   graduation
1 2.719241e+00 2.58948546 2.7763620678
2 6.921089e-01 0.67039523 0.7172340567
3 1.590141e-02 0.01826995 0.0160926405
4 1.789406e+00 1.85831469 1.8310438649
5 3.718943e-01 0.34153617 0.3523126949
6 2.981515e-04 0.00000000 0.0001990842
7 3.282151e-01 0.30947054 0.3232132192
8 9.938382e-05 0.00000000 0.0001659035

用列表中的一些值计算每一行

2 个答案:

样本数据