4

data.frameがあります 

df<-data.frame("Site.1" = c("A", "B", "C"),
               "Site.2" = c("D", "B", "B"),
               "Tsim" = c(2, 4, 7), 
               "Jaccard" = c(5, 7, 1))

#    Site.1 Site.2 Tsim Jaccard
#  1      A      D    2       5
#  2      B      B    4       7
#  3      C      B    7       1

を使用して、各列の一意のレベルを取得できます

top.x<-unique(df[1:2,c("Site.1")])
top.x

# [1] A B
# Levels: A B C

top.y<-unique(df[1:2,c("Site.2")])
top.y

# [1] D B
# Levels: B D

両方の列の一意のレベルを取得して、それらをベクトルに変換するにはどうすればよいですか。

v <- c("A", "B", "D")
v
# [1] "A" "B" "D"
4

3 に答える 3

2

試してみてくださいunion：

union(top.x, top.y)
# [1] "A" "B" "D"
union(unique(df[1:2, c("Site.1")]), 
      unique(df[1:2, c("Site.2")]))
# [1] "A" "B" "D"
于 2012-07-22T14:39:00.200 に答える
2 
top.xy <- unique(unlist(df[1:2,]))
top.xy

[1] A B D
Levels: A B C D
于 2012-07-22T14:07:28.470 に答える
0

最初の2つの列の一意のレベルを取得できます。 

de<- apply(df[,1:2],2,unique)  
de

# $Site.1  
# [1] "A" "B" "C"  

# $Site.2  
# [1] "D" "B"

次に、2つのセットの対称差を取ることができます。 

union(setdiff(de$Site.1,de$Site.2), setdiff(de$Site.2,de$Site.1))  
# [1] "A" "C" "D"

（例のように）最初の2行だけに関心がある場合： 

de<- apply(df[1:2,1:2],2,unique)  
de  
#      Site.1 Site.2  
# [1,] "A"    "D"   
# [2,] "B"    "B"  
union(de[,1],de[,2])  
# [1] "A" "B" "D"
于 2012-07-22T15:31:18.830 に答える