| X <- c(1) | |
| Y <- c(1) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.1 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="One Colour") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:2) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.2 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="Two Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:3) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.3 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="Three Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:4) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.4 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none")+ labs(x="", y="", title="Four Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:5) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.5 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="Five Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:6) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.6 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="Six Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:7) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.7 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="Seven Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| X <- c(1:8) | |
| Y <- rep(1, length(X)) | |
| DF <- as.data.frame(cbind(X,Y)) | |
| c.8 <- ggplot(data = DF) + geom_bar(aes(x = X, y = Y, fill = factor(X))) + coord_flip() + theme(legend.position="none") + labs(x="", y="", title="Eight Colours") + scale_y_continuous(breaks=NULL, expand=c(0,0)) + scale_x_continuous(breaks=NULL, expand=c(0,0)) | |
| MfrowGG <- grid.arrange(c.1, c.2, c.3, c.4, c.5, | |
| c.6, c.7, c.8, ncol=2) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment