Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(ggplot2)
- library(ggtern)
- library(reshape2)
- library(gridExtra)
- # Some faux data
- dat <- replicate(3, runif(5))
- dat <- as.data.frame(dat/rowSums(dat))
- colnames(dat) <- LETTERS[seq_len(ncol(dat)) + 23]
- dat$var <- factor(LETTERS[seq_len(nrow(dat))])
- # Make a ternary plot
- tern.plot <-
- ggplot(data = dat, aes(y=Y, x=X, z=Z, color = var, fill = var)) +
- coord_tern() +
- geom_point(size = 3)
- # Make a stacked barplot
- dat.melt <- melt(dat, id.vars = "var", variable_name = "dim")
- stacked.plot <-
- ggplot(data = dat.melt, aes(x = var, y = value, fill = dim)) +
- geom_bar(stat = "identity")
- # Arrange the two plots:
- grid.arrange(tern.plot, stacked.plot, ncol = 2)
- #Warning messages:
- #1: In is.na(x) : is.na() applied to non-(list or vector) of type 'NULL'
- #2: In is.na(x) : is.na() applied to non-(list or vector) of type 'NULL'
- # ...
- #9: In is.na(x) : is.na() applied to non-(list or vector) of type 'NULL'
- print(tern.plot)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement