请教一个R语言编程小问题

假设我有一组数据
id             name           value
1             jin, joy           1
2              jou                6
3              po, yu           3
4              gh                 3
5              kl, yu             2
6              tt                   5
7              ttk                 1
8              dd, bbs，tt    9
9              irr                  2
10            jii                   3
我想把第二列中有逗号分隔的名字分开(有的可能有很多逗号分隔的名字不止两三个)，并输出到下一行，没有逗号的不动：
希望输出结果这样：
id             name        value
1             jin               1
1             joy              1
2              jou             6
3              po              3
3              yu              3
4              gh              3
5              kl               2
5              yu              2
6              tt               5
7              ttk              1
8              dd              9
8             bbs              9
8              tt                9
9              irr                2
10            jii                 3
希望各位大神不吝指点，非常感谢！！

> id<-newid
> name<-newname
> value<-newvalue
> newdata<-data.frame(id,name,value)
> newdata
   id name value
1   1  jin     1
2   1  joy     1
3   2  jou     6
4   3   po     3
5   3  yu      3
6   4   gh     3
7   5   kl     2
8   5   yu     2
9   6   tt     5
10  7  ttk     1
11  8   dd     9
12  8  bbs     9
13  8   tt     9
14  9  irr     2
15 10 jii      3
>

1. rm(list=ls())
   
2. id<-1:10
   
3. name<-c("jin, joy","jou"," po, yu ","gh","kl, yu","tt","ttk","dd,bbs,tt","irr","jii ")
   
4. value<-c(1,6,3,3,2,5,1,9,2,3)
   
5. data<-data.frame(id,name,value)
   
6. newname<-as.character(data$name)
   
7. newid<-0
   
8. newvalue<-0
   
9. j<-1
   
10. for(i in 1:nrow(data))
    
11.    {
    
12.       t<-strsplit(as.character(data$name[i]), ",")
    
13.       if(ncol(t(t[[1]]))>=2)
    
14.          {
    
15.             
    
16.              newid[j:(j-1+ncol(t(t[[1]])))]<-data$id[i]
    
17.              newname[j:(j-1+ncol(t(t[[1]])))]<-t[[1]]
    
18.              newvalue[j:(j-1+ncol(t(t[[1]])))]<-data$value[i]
    
19.              j<-ncol(t(newid))
    
20.              j<-j+1
    
21.             
    
22.          }
    
23.        if(ncol(t(t[[1]]))==1)
    
24.          {
    
25.             
    
26.              newid[j]<-data$id[i]
    
27.              newname[j]<-as.character(data$name[i])
    
28.              newvalue[j]<-data$value[i]
    
29. 
    
30.              j<-j+1
    
31.           }
    
32.    }
    
33. id<-newid
    
34. name<-newname
    
35. value<-newvalue
    
36. newdata<-data.frame(id,name,value)
    
37. newdata

复制代码

现在这里谢谢了

你好！假定你的数据名为data，你要转换的列为name
data$name<-gsub(","," ",data$name) #去掉逗号“,”注意双引号中有一个空格，这样才是几个单词。谨记。
regexp<-"([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+)" #定义你的名字中最多的单词表达模式，你的例子中是3个。如果是4个，就是regexp<-"([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+) "
data$name<-sub(pattern=regexp,replacement="\\1",x=data$name) #将3个单词的名字转换为1个单词
regexp<-"([[:alpha:]]+)  ([[:alpha:]]+)"  #定义你的名字中2个单词的表达模式。
data$name<-sub(pattern=regexp,replacement="\\1",x=data$name) #将2个单词的名字转换为1个单词
data$name #显示最终结果
#注意一定要按顺序来，不可倒换顺序，否则出错。

nieqiang110 发表于 2013-10-13 19:10
你好！假定你的数据名为data，你要转换的列为name
data$name

您没明白我的意思 我是想输出结果直接显示成
id             name        value
1             jin               1
1             joy              1
2              jou             6
3              po              3
3              yu              3
4              gh              3
5              kl               2
5              yu              2
6              tt               5
7              ttk              1
8              dd              9
8             bbs              9
8              tt                9
9              irr                2
10            jii                 3

不是单纯对第二列操作

哈哈哈，
你好！假定你的数据名为data，你要转换的列为name
data$name<-gsub(","," ",data$name) #去掉逗号“,”注意双引号中有一个空格，这样才是几个单词。谨记。
regexp<-"([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+)" #定义你的名字中最多的单词表达模式，你的例子中是3个。如果是4个，就是regexp<-"([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+) "
data$name<-sub(pattern=regexp,replacement="\\1",x=data$name) #将3个单词的名字转换为1个单词
regexp<-"([[:alpha:]]+)  ([[:alpha:]]+)"  #定义你的名字中2个单词的表达模式。
data$name<-sub(pattern=regexp,replacement="\\1",x=data$name) #将2个单词的名字转换为1个单词
data$name #显示最终结果
#注意一定要按顺序来，不可倒换顺序，否则出错。
data

你的原始数据名为data,第二列修改后，数据自然显示好了。给我的程序加一行，写上数据名，自然就好了

1. data<-read.csv('data.csv',header=T)
   
2. data$name<-gsub(","," ",data$name)
   
3. regexp<-"([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+)"
   
4. data$name<-sub(pattern=regexp,replacement="\\1",x=data$name)
   
5. regexp<-"([[:alpha:]]+) ([[:alpha:]]+)"
   
6. data$name<-sub(pattern=regexp,replacement="\\1",x=data$name)
   
7. data$name
   
8. data

复制代码

data.rar (193 Bytes) 本附件包括：

• data.csv

2013-10-13 22:22:35 上传

数据转换成csv读取了我

根据上面的方法，还是得不到想要的结果？？

nieqiang110 发表于 2013-10-13 19:10
你好！假定你的数据名为data，你要转换的列为name
data$name

正则表达式用的很好，学习了。

X<-"ax"
Y<-"as,vy"
Z<-"ss,rr,tt"
M<-c(X,Y,Z)
M<-gsub(","," ",M)
M
regexp<-"([[:alpha:]]+) ([[:alpha:]]+) ([[:alpha:]]+)"
M<-sub(pattern=regexp,replacement="\\1",x=M);M
regexp<-"([[:alpha:]]+) ([[:alpha:]]+)"
M<-sub(pattern=regexp,replacement="\\1",x=M);M