API tools faq
paste
celestialgod

ggplot2 for

celestialgod
Apr 30th, 2015
299
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
R 3.11 KB | None | 0 0
raw download clone embed print report
  1. library(ggplot2)
  2. library(grid)
  3. library(gridExtra)
  4. library(scales)
  5. library(magrittr)
  6. library(data.table)
  7. library(plyr)
  8. library(dplyr)
  9.  
  10. dat
  11. #                 method count dimProj   tr    type
  12. #  1: PuLSIF_RB (12) PCA    10      2D tr46      3D
  13. #  2: PuLSIF_RB (12) PCA    20      3D tr46      3D
  14. #  3: PuLSIF_RB (12) SIR     8      2D tr46      3D
  15. #  4: PuLSIF_RB (12) SIR    22      3D tr46      3D
  16. #  5: PuLSIF_RB (12) PCA     8      2D tr46 3D + 1D
  17. #  6: PuLSIF_RB (12) PCA    17      3D tr46 3D + 1D
  18. #  7: PuLSIF_RB (12) PCA     5      4D tr46 3D + 1D
  19. #  8: PuLSIF_RB (12) SIR    11      2D tr46 3D + 1D
  20. #  9: PuLSIF_RB (12) SIR    13      3D tr46 3D + 1D
  21. # 10: PuLSIF_RB (12) SIR     6      4D tr46 3D + 1D
  22. # 11: PuLSIF_RB (12) PCA    19      2D tr46 3D + 2D
  23. # 12: PuLSIF_RB (12) PCA     7      3D tr46 3D + 2D
  24. # 13: PuLSIF_RB (12) PCA     4      4D tr46 3D + 2D
  25. # 14: PuLSIF_RB (12) SIR    14      2D tr46 3D + 2D
  26. # 15: PuLSIF_RB (12) SIR    13      3D tr46 3D + 2D
  27. # 16: PuLSIF_RB (12) SIR     2      4D tr46 3D + 2D
  28. # 17: PuLSIF_RB (12) SIR     1      5D tr46 3D + 2D
  29. # 18: PuLSIF_RB (12) PCA    15      2D tr46 3D + 3D
  30. # 19: PuLSIF_RB (12) PCA    10      3D tr46 3D + 3D
  31. # 20: PuLSIF_RB (12) PCA     4      4D tr46 3D + 3D
  32. # 21: PuLSIF_RB (12) PCA     1      5D tr46 3D + 3D
  33. # 22: PuLSIF_RB (12) SIR    16      2D tr46 3D + 3D
  34. # 23: PuLSIF_RB (12) SIR    12      3D tr46 3D + 3D
  35. # 24: PuLSIF_RB (12) SIR     2      4D tr46 3D + 3D
  36. # 25: PuLSIF_RB (12) PCA    11      2D tr46 3D + 4D
  37. # 26: PuLSIF_RB (12) PCA    18      3D tr46 3D + 4D
  38. # 27: PuLSIF_RB (12) PCA     1      4D tr46 3D + 4D
  39. # 28: PuLSIF_RB (12) SIR     9      2D tr46 3D + 4D
  40. # 29: PuLSIF_RB (12) SIR    16      3D tr46 3D + 4D
  41. # 30: PuLSIF_RB (12) SIR     3      4D tr46 3D + 4D
  42. # 31: PuLSIF_RB (12) SIR     2      5D tr46 3D + 4D
  43. # 32: PuLSIF_RB (12) PCA    12      2D tr46 3D + 5D
  44. # 33: PuLSIF_RB (12) PCA    17      3D tr46 3D + 5D
  45. # 34: PuLSIF_RB (12) PCA     1      4D tr46 3D + 5D
  46. # 35: PuLSIF_RB (12) SIR    14      2D tr46 3D + 5D
  47. # 36: PuLSIF_RB (12) SIR    10      3D tr46 3D + 5D
  48. # 37: PuLSIF_RB (12) SIR     5      4D tr46 3D + 5D
  49. # 38: PuLSIF_RB (12) SIR     1      5D tr46 3D + 5D
  50.  
  51. str(dat)
  52. # Classes ‘data.table’ and 'data.frame':  38 obs. of  5 variables:
  53. #  $ method    : Factor w/ 2 levels "PuLSIF_RB (12) PCA",..: 1 1 2 2 1 1 1 2 2 2 ...
  54. #  $ count     : int  10 20 8 22 8 17 5 11 13 6 ...
  55. #  $ dimProj   : chr  "2D" "3D" "2D" "3D" ...
  56. #  $ tr        : chr  "tr46" "tr46" "tr46" "tr46" ...
  57. #  $ type      : chr  "3D" "3D" "3D" "3D" ...
  58. #  - attr(*, ".internal.selfref")=<externalptr>
  59.  
  60. dat %<>% ddply(.(method, type), transform,
  61.   pos = cumsum(proportion) - (0.5 * proportion))
  62. ggplot(dat, aes(type, proportion, fill = dimProj)) %>% add(facet_grid(.~method)) %>%
  63.   add(geom_bar(stat = "identity", width=.7)) %>% add(scale_fill_grey()) %>%
  64.   add(coord_flip()) %>% add(scale_y_continuous(oob = rescale_none)) %>%
  65.   add(geom_text(aes(label = paste0(round(proportion*100), "%"), y = pos), size = 4)) %>%
  66.   add(labs(list(x = "", y = ""))) %>%
  67.   add(theme(legend.title=element_blank(), axis.text = element_text(colour = "black")))
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!