例如： summarise_column <- function(x) { cat(x) summary(factor(substr(SKCM.rnaseq[[x]], 14, 15))) } lapply(c("the", "variables", "I", "would", "like", "to", "summarise"), summarise_column) ... 展开详请

http：//jsfiddle.net/aznBb/ chart: { type: 'bar', inverted: false // default } chart: { type: 'bar', inverted: true } chart: { type: 'column', inverted: false // default chart: { type: 'column', inverted: true } ... 展开详请

基本的画线功能： xkcd_line <- function(x, y, color) { len <- length(x); rg <- par("usr"); yjitter <- (rg[4] - rg[3]) / 1000; xjitter <- (rg[2] - rg[1]) / 1000; x_mod <- x + rnorm(len) * xjitter; y_mod <- y + rnorm(len) * yjitter; lines(x_mod, y_mod, col='white', lwd=10); lines(x_mod, y_mod, col=color, lwd=5); } 基本轴： xkcd_axis <- function() { rg <- par("usr"); yaxis <- 1:100 / 100 * (rg[4] - rg[3]) + rg[3]; xaxis <- 1:100 / 100 * (rg[2] - rg[1]) + rg[1]; xkcd_line(1:100 * 0 + rg[1] + (rg[2]-rg[1])/100, yaxis,'black') xkcd_line(xaxis, 1:100 * 0 + rg[3] + (rg[4]-rg[3])/100, 'black') } 和示例代码： data <- data.frame(x=1:100) data$one <- exp(-((data$x - 50)/10)^2) data$two <- sin(data$x/10) plot.new() plot.window( c(min(data$x),max(data$x)), c(min(c(data$one,data$two)),max(c(data$one,data$two)))) xkcd_axis() xkcd_line(data$x, data$one, 'red') xkcd_line(data$x, data$two, 'blue')... 展开详请

Factory模式几乎可以看作是Builder模式的简化版本。 在工厂模式中，工厂负责根据需要创建对象的各种子类型。 工厂方法的用户不需要知道该对象的确切子类型。一个工厂方法的例子createCar可能会返回一个Ford或一个Honda类型的对象。 在构建器模式中，不同的子类型也是由构建器方法创建的，但是对象的组合可能在相同的子类中不同。 要继续汽车的例子，你可能有一个createCar建造者的方法，创建Honda一个4缸发动机，或一个Honda带有6个气缸的对​​象的对象。构建器模式允许更精细的粒度。 Builder模式和Factory方法模式的图表在Wikipedia上均可用。... 展开详请