Advertisement
Guest User

Untitled

a guest
Apr 24th, 2014
37
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.07 KB | None | 0 0
  1. >temp
  2.  
  3. Var1 Freq1
  4. 1 file-upload 1
  5. 2 image-processing 1
  6. 3 mime-types 1
  7. 4 php 5
  8.  
  9.  
  10. >top
  11.  
  12. Var2 Freq2
  13. 1 file-upload 1
  14. 2 image-processing 1
  15. 3 mime-types 1
  16. 4 php 5
  17. 5 upload 1
  18. 6 firefox 2
  19. 7 machine-learning 1
  20. 8 matlab 1
  21. 9 r 2
  22. 10 c# 7
  23.  
  24. m1 <- merge(temp, top, by.x = "Var1", by.y = "Var2", all.x = TRUE)
  25.  
  26. Var1 Freq1 Freq2
  27. 1 file-upload 1 1
  28. 2 image-processing 1 1
  29. 3 mime-types 1 1
  30. 4 php 5 5
  31.  
  32. x <- split(m1, m1$Var1)
  33.  
  34. $c#
  35. [1] Var1 Freq1 Freq2
  36. <0 rows> (or 0-length row.names)
  37.  
  38. m1$Var1 <- factor(m1$Var1)
  39.  
  40. x <- data.frame(var=letters[1:3],freq1=1:3)
  41. y <- data.frame(var=letters[2:4],freq2=2:4)
  42.  
  43. merge(x,y)$var
  44. [1] b c
  45. Levels: a b c
  46.  
  47. droplevels(merge(x,y))$var
  48. [1] b c
  49. Levels: b c
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement