Showing posts with label combination plot. Show all posts
Showing posts with label combination plot. Show all posts
Friday, May 3, 2013

RG#109:small plot(s) with in a big plot

›
require(ggplot2) library(gridBase) plot(cos, -pi, 2*pi, ylim = c(-1.3, 1.5), col = "red") myd <- data.frame (X = 1:10, Y = c(...
Thursday, May 2, 2013

RG#103: Combing different types of plot in trellis type

›
require(lattice) require(latticeExtra) #xy plot, conditioned from quakes data, with histogram qk <- xyplot(lat ~ long | equal.count...
Thursday, April 18, 2013

RG#80: Plotting boxplot and histogram (overlayed or in margin)

›
 # data set.seed(4566) data <- rnorm(100) # layout where the boxplot is at top  nf <- layout(mat = matrix(c(1,2),2,1, byrow=TRUE)...
Wednesday, April 17, 2013

RG#77: Histogram and Cumulative Histogram with overlayed density plot

›
## Make some sample data x <- sample(0:30, 200, replace=T, prob=15 - abs(15 - 0:30)) ## Calculate and plot the two histograms hcum ...
3 comments:

RG#72: XY plot with heatmap strip at margin

›
set.seed(1234) mydata <- data.frame (Xv = rnorm (300, 50, 10), Yv = rnorm (300, 10, 3)) mydata$xcat <- cut (mydata$Xv, 10) mydata...

RG#73: triple (three) heatmap plot - one center (XY) and other two at X and Y axis direction

›
 library(ggplot2);  library(reshape2)  library (grid) #X axis quantitaive ggplot data datfx <- data.frame(indv=factor(paste("...

RG#71: Barplot (histogram) with heatmap strip at margin

›
require(grid) require(ggplot2) plt1<-ggplot(myd, aes(x=nam, y=Yv, fill = nam)) +   geom_bar(stat = "identity")  +  theme(...
Monday, April 8, 2013

RG#37: XY line or scatter plot graph with two Y axis

›
# data set.seed(1234) x <- 1:20 y1 <- rnorm(20, 5, 1) y2 <- rnorm(20,20, 2) y3 <- rnorm(20,5, 3) # plot par(mar=c(5,4,4...
Saturday, April 6, 2013

Plot#17: heatmap plot with dendograms at margin

›
# data  set.seed(1234)  P <- vector() DF <- as.data.frame(matrix(rep(NA, 100), nrow=10)) names(DF) <- c(paste("M",...
Friday, April 5, 2013

RG#6: XY Scatter plot with box plot at margin

›
 # data set.seed(123) myd <- data.frame (X = rnorm (100, 10,4), Y = rnorm(100, 8,3)) # plotting # plotting scatter plot,  ?par see f...