R语言编程的一个问题

如果有df1和df2两个dataframe，其行列如下：

x1 <- c(4,1,3,2,3,4,1,3,2,3)
x2 <- c(7,5,6,4,4,7,5,6,4,4)
df1 <- data.frame(x1,x2)
df1

y1 <- c(1,1,1,1,1,1,1,1,1,1)
y2 <- c(2,2,2,2,2,2,2,2,2,2)
y3 <- c(3,3,3,3,3,3,3,3,3,3)
y4 <- c(4,4,4,4,4,4,4,4,4,4)
y5 <- c(5,5,5,5,5,5,5,5,5,5)
y6 <- c(6,6,6,6,6,6,6,6,6,6)
y7 <- c(7,7,7,7,7,7,7,7,7,7)
y8 <- c(8,8,8,8,8,8,8,8,8,8)
df2 <- data.frame(y1,y2,y3,y4,y5,y6,y7,y8)
df2

现在需要计算df1$x1里面的第一个数4和df1$x2里面的第一个数7对于df2里面对应的y4和y7的乘积。
如果按照下面的算法，会得到10行n列。第一列a为10个28，第二列b为10个5，…，第n列为10个12。

df1$a <-df2$y7*df2$y4
df1$b <-df2$y5*df2$y1
#....
df1$n <-df2$y4*df2$y3
-baidu 1point3acres
但是我现在需要把他们放到10行1列，也就是这样：
28
5
…
...
...
12

这个怎么实现呢？多谢。

你的df2全是常数列，不明白为什么要generate一个这样的df来实现你的目的。如果是想在df1里面直接增加一列，直接df1$a=c（）直接输入就好。如果非要像你写的那样弄（虽然不明白到底要干嘛），你可以df1[1,c(“a”,”b”,....”n”)]，这个就是你要的那个向量。

你好！
似乎只要把你的计算结果转置，用t()，然后取转置后的结果的任意一列[ ,x]就可以咯。
感觉计算过程可以用类似apply优化。
希望有用。谢谢。

wstutenny 发表于 2021-4-8 02:47
. 1point3acres.com 你的df2全是常数列，不明白为什么要generate一个这样的df来实现你的目的。如果是想在df1里面直接增加一列， ...

你好！
我猜想有可能df2只是一个例子，如果df1是密码，df2是字典，计算结果是明码。可以把df2变成无序的数组来看这个问题。谢谢。

benchlover 发表于 2021-4-7 13:49
你好！
似乎只要把你的计算结果转置，用t()，然后取转置后的结果的任意一列[ ,x]就可以咯。
感觉计算过程 ...

我也觉得应该用apply()或者lapply()啥的，但是还没有figure out..

wstutenny 发表于 2021-4-7 13:47
你的df2全是常数列，不明白为什么要generate一个这样的df来实现你的目的。如果是想在df1里面直接增加一列， ...

这样写可以把很多列合并成为1列，后面还有别的运算。

benchlover 发表于 2021-4-7 13:53
你好！
我猜想有可能df2只是一个例子，如果df1是密码，df2是字典，计算结果是明码。可以把df2变成无序的 ...

其实主要是数据量比较大。数少怎么都好算，多了以后就麻烦。

benchlover 发表于 2021-04-07 11:53:23
你好！
我猜想有可能df2只是一个例子，如果df1是密码，df2是字典，计算结果是明码。可以把df2变成无序的数组来看这个问题。谢谢。

所以df1里面的4，7是df2里面的4，7列？那样的话可以先写一个function算df2里的列乘积，argument就是哪两列，然后apply套df1应该就行了吧。

wx2123 发表于 2021-04-07 11:56:05
这样写可以把很多列合并成为1列，后面还有别的运算。

不太明白你的合并很多列是什么意思，as.vector？如果那样你全部弄完之后用rep也行，r里面dataframe的运算很慢，加上你的数据大，可能不是很好优化

没太看明白df2为什么重复这么多，如果df2每一行都一样的话你要不要试试 df2[1, df1[, 1]] * df2[1, df1[, 2]]