magicyang1987

摘要： hc <- read.table("c:/test.txt", header=TRUE) // hc的数据类型为list test为数据作图：x <- rnorm(10)y <- rnorm(10)#R 作图颜色~SetTextContrastColor <- function(color){ ifelse( mean(col2rgb(color)) > 127, "black", "white")}TextContrastColor <- unlist( lapply(colors(), SetT 阅读全文