Tag: ggplot2

通过variables编号来寻址x和y: 我需要绘制一个散点图，用列号而不是名称来寻址variables，即代替ggplot(dat, aes(x=Var1, y=Var2))我需要像ggplot(dat, aes(x=dat[,1], y=dat[,2])) 。（我说“某事”，因为后者不起作用）。这是我的代码： showplot1<-function(indata, inx, iny){ dat<-indata print(nrow(dat)); # this is just to show that object 'dat' is defined p <- ggplot(dat, aes(x=dat[,inx], y=dat[,iny])) p + geom_point(size=4, alpha = 0.5) } testdata<-data.frame(v1=rnorm(100), v2=rnorm(100), v3=rnorm(100), v4=rnorm(100), v5=rnorm(100)) showplot1(indata=testdata, inx=2, iny=3) # Error in eval(expr, envir, enclos) : object 'dat' not found

堆积的条形图: 我想用ggplot2和geom_bar创build一个堆积图。这是我的源数据： Rank F1 F2 F3 1 500 250 50 2 400 100 30 3 300 155 100 4 200 90 10 我想要一个堆叠图，其中x是排名，y是F1，F2，F3中的值。 # Getting Source Data sample.data <- read.csv('sample.data.csv') # Plot Chart c <- ggplot(sample.data, aes(x = sample.data$Rank, y = sample.data$F1)) c + geom_bar(stat = "identity") 这是我所能得到的。我不确定如何堆叠字段值的其余部分。也许我的data.frame格式不好？

在ggplot轴标签中的下标字母: 另一张出版物的图表，另一天在ggplot2中调整了一些东西…我在哼哼？我不确定… dat <- data.frame(x = rnorm(100), y = rnorm(100)) ggplot(dat, aes(x=x,y=y)) + geom_point() + labs(y=expression(Blah[1])) dat <- data.frame(x = rnorm(100), y = rnorm(100)) ggplot(dat, aes(x=x,y=y)) + geom_point() + labs(y=expression(Blah[1d])) 我正在努力解决如何在轴标签中有下标字母。第一个例子只是一个数字，只要你在方括号中有一个字符就会失败。 Blah [下标（1d）]基本上就是我所需要的，但是我不知道如何让它在下标中有字母。已尝试变化，包括粘贴（）等当然，为了增加挫折感 labs(y=expression(Blah[12])) – 这是有效的 labs(y=expression(Blah[d])) – 这是有效的 labs(y=expression(Blah[d1])) – 这是有效的 labs(y=expression(Blah[1d])) – 失败。思考？

控制ggplot图例中的线条颜色和线条types: 背景德国有16个联邦州，其中10个属于西德，其中6个属于东德。在某些方面，例如某些癌症的死亡率，十个原西方国家与六个原东方国家之间存在长期的差异。各组内各州之间也有差异。为了显示不同国家之间的差异，从每个国家绘制数据，例如年龄标准化乳腺癌死亡率，可以有一定的意义。有16行的情节并不总是一个好的select，我不想就此进行讨论。有时候，权力就是这样说的。问题区分情节中的16条线可能是困难的。为此，我通常使用RColorBrewer软件包中的颜色组合（ Set3的前十种颜色再加上该调色板的前六种颜色，对应于十个前西和前六个东州）和线型（一行键入东部，西部一个）。使用lattice包装，从1998年到2010年的年龄标准化的乳腺癌死亡率的情节可能是这样的：这个问题我想用ggplot做一个类似的情节，但我还没有想出如何将图例中的颜色和线条types结合起来。到目前为止，我已经得到了很多：如果可以在ggplot传说中结合颜色和线条types，怎么去做呢？以下是创build数据框和图的代码： mort3 <- structure(list(State = structure(c(8L, 9L, 11L, 12L, 4L, 2L, 6L, 13L, 3L, 5L, 7L, 10L, 14L, 15L, 1L, 16L, 8L, 9L, 11L, 12L, 4L, 2L, 6L, 13L, 3L, 5L, 7L, 10L, 14L, 15L, 1L, 16L, 8L, 9L, […]

在R中的GGPLOT2中一起使用stat_function和facet_wrap: 我试图用GGPLOT2绘制格型数据，然后在样本数据上叠加一个正态分布来说明底层数据有多远。我希望有一个正常的发展方向与面板具有相同的意思和定义。这里是一个例子： library(ggplot2) #make some example data dd<-data.frame(matrix(rnorm(144, mean=2, sd=2),72,2),c(rep("A",24),rep("B",24),rep("C",24))) colnames(dd) <- c("x_value", "Predicted_value", "State_CD") #This works pg <- ggplot(dd) + geom_density(aes(x=Predicted_value)) + facet_wrap(~State_CD) print(pg) 这一切都很好，并产生一个很好的数据面板图。如何在顶部添加正常的dist？看来我会使用stat_function，但是这个失败： #this fails pg <- ggplot(dd) + geom_density(aes(x=Predicted_value)) + stat_function(fun=dnorm) + facet_wrap(~State_CD) print(pg) 看来stat_function与facet_wrapfunction不兼容。我如何让这两个玩得很好？ – – – – – – 编辑 – – – – – […]

在不规则的网格上绘制轮廓: 我已经阅读了R中的等高线图（包括很多关于stackoverflow的提示）的页面和页面，但都没有成功。这里是我的数据轮廓，包括添加一个卢旺达的地图（数据包括经度，纬度和雨的十四个值，如x，y和z）： Lon Lat Rain 28.92 -2.47 83.4 29.02 -2.68 144 29.25 -1.67 134.7 29.42 -2.07 174.9 29.55 -1.58 151.5 29.57 -2.48 224.1 29.6 -1.5 254.3 29.72 -2.18 173.9 30.03 -1.95 154.8 30.05 -1.6 152.2 30.13 -1.97 126.2 30.33 -1.3 98.5 30.45 -1.81 145.5 30.5 -2.15 151.3 这里是我从stackoverflow尝试的代码： datr <- read.table("Apr0130precip.txt",header=TRUE,sep=",") x <- datr$x y […]

在geom_bar ggplot2中重新sorting吧: 我试图制作一个条形图，从最高value的miRNA到最低的miRNAsorting。为什么我的代码不工作？ > head(corr.m) miRNA variable value 1 mmu-miR-532-3p pos 7 2 mmu-miR-1983 pos 75 3 mmu-miR-301a-3p pos 70 4 mmu-miR-96-5p pos 5 5 mmu-miR-139-5p pos 10 6 mmu-miR-5097 pos 47 ggplot(corr.m, aes(x=reorder(miRNA, value), y=value, fill=variable)) + geom_bar(stat="identity")

构build复杂情节的手册图例: 我不知道如何手动设置这个情节的图例。所有我真正想要的是一个简单的传说，右边使用三种颜色，每个都有一个名字。当前的代码如下所示： a <-c("S1","S2","S3","S4","S5","S6","S7","S8","S9") #names b <-c(0.23,0.26,0.55,0.56,0.36,0.23,0.18,0.06,0.04) #mean t0 c <-c(0.64,0.6,0.81,1.4,0.89,0.55,0.48,0.22,0.09) #mean t1 d <-c(0.20,0.23,0.52,0.53,0.33,0.20,0.15,0.04,0.03) #SD low t0 e <-c(0.26,0.29,0.58,.59,0.39,0.26,0.21,0.08,0.05) #SD high t0 f <-c(0.67,0.63,0.86,1.44,0.93,0.59,0.51,0.25,0.10) #SD high t1 g <-c(0.61,0.57,0.78,1.36,0.85,0.53,0.45,0.19,0.08) #SD low t1 h <-c(0.41,0.34,0.26,0.84,0.53,0.32,0.30,0.16,0.05) #absolute change data <- data.frame(a,b,c,d,e,f,g,h) ggplot(data=data,aes(a)) + geom_bar(stat="identity", aes(y=h),fill="#62c76b",colour="#333333")+ #green geom_line(aes(y=b,group=1),size=1.0,colour="#f04546") + #red geom_point(aes(y=b),size=3, colour="#f04546") + #red geom_errorbar(aes(ymin=d, ymax=e), […]

closuresggplot中的一些传说: 假设我有一个超过一个图例的ggplot。 mov <- subset(movies, length != "") (p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) + geom_point() ) 我可以closures所有图例的显示： (p1 <- p0 + theme(legend.position = "none")) 将show_guide = FALSE传递给geom_point （按照这个问题）closures形状图例。 (p2 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) + geom_point(show_guide = FALSE) ) 但是如果我想closures颜色图例呢？似乎没有办法告诉show_guide将其行为应用于哪个图例。尺度和美学没有show_guide论据。 (p3 <- […]

“for”循环只添加最后的ggplot图层: 简介：当我使用“for”循环将图层添加到小提琴绘图（在ggplot中）时，唯一添加的图层是由最终循环迭代创build的图层。然而，在模仿循环产生的代码的显式代码中，所有的图层都被添加了。详细信息：我正在尝试创build具有重叠图层的小提琴图表，以显示估计分布与多个调查问题响应是否重叠的程度，按地点分层。我希望能够包含任意数量的位置，所以我在每个位置都有一个数据框的列，并试图使用“for”循环为每个位置生成一个ggplot图层。但循环仅添加循环的最终迭代中的图层。这个代码说明了这个问题，一些build议的方法失败了： library(ggplot2) # Create a dataframe with 500 random normal values for responses to 3 survey questions from two cities topic <- c("Poverty %","Mean Age","% Smokers") place <- c("Chicago","Miami") n <- 500 mean <- c(35, 40,58, 50, 25,20) var <- c( 7, 1.5, 3, .25, .5, 1) df <- data.frame( […]