赋值问题如何实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

id	t	s1	s2	s3
1	A	10	9	8
2	A	8	5	2
3	B	7	6	9
4	B	8	12	4
5	C	6	5	1
6	C	5	6	4

例如这个数据，如果t==A，那么s1=s1+1，s2=s2的立方，s3=s3的平方，并替换原来的值
如果t==B或C，s1，s2，s3不变

如何实现？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何实现 IDT

我有一个比较笨的办法可以试试，假设你的数据框是df，用循环解决：

1. for (i in 1:length(df$id)){

复制代码

陈小瓜的丝瓜 发表于 2018-7-9 20:32
我有一个比较笨的办法可以试试，假设你的数据框是df，用循环解决：

代码显示怎么有问题呢

1. for (i in 1:length(df$id)){
   
2.   if (as.character(df$t[i]) == "A"){
   
3.     df$s1[i] <- df$s1[i] + 1
   
4.     df$s2[i] <- df$s2[i]^2
   
5.     df$s3[i] <- df$s3[i]^2
   
6.   }
   
7. }

复制代码

其实方法有好多，我就用最简单的语句，无须使用循环，代码与运算结果如下：
> w=read.delim("clipboard")
> w
  id t s1 s2 s3
1  1 A 10  9  8
2  2 A  8  5  2
3  3 B  7  6  9
4  4 B  8 12  4
5  5 C  6  5  1
6  6 C  5  6  4
> w1=subset(w,w$t=="A")
> w1
  id t s1 s2 s3
1  1 A 10  9  8
2  2 A  8  5  2
> w1[[3]]= w1[[3]]+1
> w1[[4]]=w1[[4]]^3
> w1[[5]]=w1[[5]]^2
> w1
  id t s1  s2 s3
1  1 A 11 729 64
2  2 A  9 125  4
> w2=w[-c(1:2),]
> w2
  id t s1 s2 s3
3  3 B  7  6  9
4  4 B  8 12  4
5  5 C  6  5  1
6  6 C  5  6  4
> new=rbind(w1,w2)
> new
  id t s1  s2 s3
1  1 A 11 729 64
2  2 A  9 125  4
3  3 B  7   6  9
4  4 B  8  12  4
5  5 C  6   5  1
6  6 C  5   6  4

1. lirary(tidyverse)
   
2. df <- df %>%
   
3.   mutate(s1 = if_else(t == "A", s1 + 1, s1),
   
4.          s2 = if_else(t == "A", s2 ^ 3, s2),
   
5.          s3 = if_else(t == "A", s3 ^2, s3))

复制代码

谢谢大家

R的解决方案很多，楼上几位的思路都很不错。