我一直在学习ggplot2,并希望在我所有的R图中使用它。但是,我还没有找到一种方法来绘制类似于传统轮廓图的轮廓图,就像使用lattice:filled.contour()可以获得的那样。例如:
#define data
x<-seq(1,11,1)
y<-seq(1,11,1)
xyz.func<-function(x,y) {-10.4+6.53*x+6.53*y-0.167*x^2-0.167*y^2+0.0500*x*y}
#contour plot using lattice graphics and R Color Brewer
library(lattice)
我想为ggplot2条形图对象设置特定的条形图参数。
具体来说,我希望条形图从y轴值1开始,我希望下限是-1,上限是最大图值的1.25倍。
这个是可能的吗?如果是的话,如何才能做到呢?
下面是一些示例代码。
提前谢谢。
# loads ggplot2 package
library(ggplot2)
# displays information about data
colnames(mtcars)
mtcars
# creates bar plot
bar_plot__x_is_cyl__y_is_carb <-
# ---- NOTE: sets up ggplot d
如何用ggplot2绘制单个单元格中多个类别的热图?使用此代码可以完成分类变量的热图绘制。
#data
datf <- data.frame(indv=factor(paste("ID", 1:20),
levels =rev(paste("ID", 1:20))), matrix(sample(LETTERS[1:7], 400, T), ncol = 20))
library(ggplot2);
library(reshape2)
# converting data to long form for ggplot2 use
datf
在ggplot2中,我希望绘制注释条,使条形图颜色的顺序与其他列匹配。。这里的条形"A“颜色是根据y列(真或假)和条形"B”相同的。我试着跟着,但不起作用。
> (df <- data.frame(x=rep(1:5, 2), y=rep(c(T,F), 5), z=c(rep("A",5), rep("B",5))))
x y z
1 1 TRUE A
2 2 FALSE A
3 3 TRUE A
4 4 FALSE A
5 5 TRUE A
6 1 FALSE B
7 2 TRUE B
8 3
假设我们有:
x <- rnorm(1000)
y <- rnorm(1000)
如何使用ggplot2生成包含以下两个geoms的绘图:
两组值的二元期望
一条轮廓线,显示95%的估计值在哪里?
我知道怎么做第一部分:
df <- data.frame(x=x, y=y)
p <- ggplot(df, aes(x=x, y=y))
p <- p + xlim(-10, 10) + ylim(-10, 10) # say
p <- p + geom_point(x=mean(x), y=mean(y))
我还知道stat_conto
我正在尝试生成具有不同颜色(红色、白色、蓝色)的热图,但白色位于选定的值(或改变比例),而不是数据的自动拟合/居中。 样本数据集: set.seed(5)
demo <- data.frame(x = seq(from = -40, to = 40, by = 5), y = 0:5, data = runif(102, min = 0, max = 1)) 我生成热图的尝试基于以下几点: library(ggplot2)
library(ggsci)
ggplot(demo) + geom_tile(aes(x = x, y = y, fill = data), color = NA
我正在用kde2d (质量)在lat和lon数据上创建密度图。我想知道原始数据中的哪些点在特定的轮廓内。
我使用两种方法创建90%和50%的轮廓。我想知道哪些点在90%的等高线内,哪些点在50%的等高线内。90%等高线中的点将包含50%等高线内的所有点。最后一步是在90%的轮廓内找到不在50%轮廓范围内的点(我不一定需要这个步骤的帮助)。
# bw = data of 2 cols (lat and lon) and 363 rows
# two versions to do this:
# would ideally like to use the second version (with
我正在使用ggplot和geom_tile来形成热图。我想在细胞间插入一些模糊的线条。
例如:
我的ggplot geom_tile热图:
library(ggplot2)
library(reshape2)
data("iris")
x = melt(cor(iris[,1:4]))
ggplot(data=x,aes(Var1,Var2,fill=value)) + geom_tile() # No line between the cells
我想要的(来自R中的d3heatmap包)
library(d3heatmap)
data("iris")
x =
在R 2.13.1 / ggplot2 0.8.9中,我尝试在geom_tile层上添加点。此示例重现错误。
volcano3d <- melt(volcano)
names(volcano3d) <- c("x", "y", "z")
pts <- data.frame(a=runif(10,0,80), b=runif(10,0,60))
v <- ggplot(volcano3d, aes(x, y, z = z))
v + geom_tile(aes(fill = z))
# works fine
v +