如何禁止ggplot2中的geom_area更改我的y限制
在ggplot2中，可以使用coord_cartesian函数来禁止geom_area更改y轴的限制。
geom_area函数用于创建面积图，它会自动调整y轴的限制以适应数据。如果你想固定y轴的限制而不受geom_area的影响，可以在绘图中添加coord_cartesian函数，并指定ylim参数来设置y轴的限制。
以下是禁止geom_area更改y限制的步骤：
- 首先，导入
ggplot2包并加载需要的数据。
library(ggplot2)
# 加载数据
data <- data.frame(
x = c(1, 2, 3, 4, 5),
y = c(2, 4, 6, 8, 10)
)- 创建一个基础的
ggplot对象，并使用geom_area函数添加面积图。
# 创建ggplot对象
p <- ggplot(data, aes(x, y))
# 添加geom_area
p <- p + geom_area()- 在绘图中使用
coord_cartesian函数，并设置ylim参数以固定y轴的限制。
# 禁止geom_area更改y限制
p <- p + coord_cartesian(ylim = c(0, 12))在这个例子中，ylim = c(0, 12)将y轴的限制设置为0到12之间的范围。无论geom_area的数据如何变化，y轴的限制都会保持不变。
这里是对应的腾讯云产品链接地址： 腾讯云产品链接：https://cloud.tencent.com/product
请注意，上述答案中不提及亚马逊AWS、Azure、阿里云、华为云、天翼云、GoDaddy、Namecheap、Google等品牌商，如果需要获取更多关于这些品牌商的信息，请自行查询相关资料。
相关·内容
在使用geom_area()时，可以强制执行堆栈顺序吗？我不明白为什么geom_area(position = "stack")在1605年左右按堆栈顺序产生这种奇怪的波动。
数据帧中没有缺少值。
library(ggplot2)
counts <- read.csv("https://gist.githubusercontent.com/mdlincoln/d5e1bf64a897ecb84fd6/raw/34c6d484e699e0c4676bb7b765b1b5d4022054af/counts.csv")
ggplot(counts, aes(
浏览 12提问于2015-09-16得票数 5
回答已采纳
我想用power和MWE绘制F-test的ggplot2，下面是图输出：
library(ggplot2)
df1 <- 3
df2 <- 8
Alpha <- 0.05
df <- data.frame(X = seq(from = 0, to = 10, length = 500))
p <- ggplot(data=df, mapping=aes(x = X, y = df(x = X, df1 = df1, df2 = df2, ncp=0)))+
geom_area(color="black", fill="w
浏览 4提问于2013-07-26得票数 1
回答已采纳
我想添加一个阴影区域，使用ggplot2连接每个条形的类别，如下图所示
数据
library(ggplot2)
specie <- c(rep("sorgho" , 3) , rep("poacee" , 3) , rep("banana" , 3) , rep("triticum" , 3) )
condition <- rep(c("normal" , "stress" , "Nitrogen") , 4)
value <- abs(rnorm(12
浏览 2提问于2022-08-16得票数 4
回答已采纳
我试着用ggplot的geom_area填充曲线下不同颜色的区域的切片(x轴)。但不知何故，我无法让这些区域的两侧垂直起来。下面是一个最小的可重现性示例：
library(ggplot2)
x = 1:10
pdat = data.frame(y = log(x), x = x)
ggplot(pdat, aes(x=x, y=y)) +
geom_area(aes(y = ifelse(y > 2 & y < 5, y, 0)),
fill = "red", alpha = 0.5) +
geom_line()
浏览 2提问于2017-04-28得票数 4
回答已采纳
我有一个数据集，其中一些变量始终为负值，而一些变量始终为正值。我想做一个堆积面积图，其中负值堆叠在x轴下方，正值堆叠在x轴上方。在我想要显示在图例中的数据框中，我将变量名作为特定顺序的因子。问题是，为了绘制x轴上方和下方的数据，我必须使用geom_area()两次，一次使用数据的正子集，一次使用负子集。当我这样做时，它会重新排列图例中的因素，而不考虑它们的原始顺序。
include('ggplot2')
test <- data.frame(x=rep(c(1,2,3,4),4),
fact=factor(c(rep('a
浏览 5提问于2016-09-22得票数 0
回答已采纳
我在R中有以下图，它是使用ggplot2包生成的，结果如下： ? 获取此图的代码为： df <- data.frame(value_x = c(10,20,30,40), value_y = c(89.3, 89.4, 89.60, 90.1))
myplot <- ggplot(data = df, aes(x = value_x, y = value_y)) +
geom_point() +
geom_line()
myplot 现在我想填充这条曲线下的区域，但仍然保持y轴的比例。当我将geom_area(alpha = 0.40)添加到代码中时，图变成如下：
浏览 22提问于2019-03-10得票数 0
回答已采纳
我用ggplot2的qplot来绘制R中不同物种散布的种子的距离，当我使用geom='density'时，它工作得很好！但我真正想要的是一个频率/面积图，我得到一个错误，我不知道如何解决。
这样做是可行的：
qplot(Dist,data=testx,geom="density",fill=Animal,log=c('x','y'),alpha=I(0.5))
这不管用：
qplot(Dist,data=testx,geom="area",fill=Animal,log=c('x','y&#
浏览 6提问于2014-07-11得票数 12
2回答
我正在使用ggplot2软件包绘制物种丰富度的堆叠区域。
我的代码：
#Aggragate 2 column
x=IBTS[,3:4]
Datehour=paste(IBTS$Date.,IBTS$Time.)
Date<-strptime(Datehour,"%d/%m/%Y %H:%M")
#Add a new column with the date
IBTS$Date
IBTS<-cbind(IBTS,Date)
#Plotting the data
p<-ggplot(IBTS,aes(x=Date
浏览 3提问于2016-02-16得票数 3
1回答
我一直试图用ggplot2绘制一个堆叠的区域图。我的问题是，我的图的y轴没有准确地显示值的范围。我最大的价值是100。
Date A B C D E
2019-12-31 0.0 0.0 0.0 0.0 0.0
2019-12-24 0.0 0.0 0.0 0.0 0.0
...
2016-12-27 18.09 81.91 40.21 9.70 1.7
...
2014-
浏览 3提问于2020-07-17得票数 0
1回答
我实际上是想复制这个图表的背景(蓝色等温线，异盐)：
使用这种文件：
这个想法是在每个站点到另一个站点的距离(x)上绘制深度(y)。我想用“临时”一栏在上面画等斜线。
我尝试过使用ggplot2，以及geom_area、geom_density2d或geom_bind2d函数，但我无法成功地使它工作。(例如，在这个脚本中，它显示的错误是Error in f(...) : Aesthetics can not vary with a ribbon
我觉得自己很蠢，因为这是我第一次使用ggplot2。
你能帮帮我吗？
library(readr)
Tr3 <- read_delim
浏览 3提问于2020-07-06得票数 2
回答已采纳
我正在尝试完成我以前在Excel中做的一些事情，我有几个时间间隔相同的时间序列，并且希望将它们绘制成线条(使用ggplot geom_line非常容易)，但是其中一个应该被绘制成一个区域图。
基本上是这样的：
请注意，S_1系列是作为面积绘制的。
我已经尝试过将geom_area()添加到与区域系列值相等的aes值中：
ggplot(df.lines, aes(x=Index, y=Value, colour=Series)) + geom_line() + geom_area(aes(x=df.area$Index, y=df.area$S_1))
我怎么能用ggplot2来处理这
浏览 2提问于2016-10-25得票数 1
回答已采纳
2回答
我相信这个问题很容易解决。
我正在尝试使用ggplot2填充我从"mydata“绘制的线下的区域。
这里的例子是：
a = seq(10, 100, 5)
b = -(runif(19, 0, 50))
mydata <- data.frame(a, b)
ggplot(data = mydata, aes(x = a, y = b)) +
geom_area()
geom_bar填充在线的上方，考虑从0到值(负值)的区域。我想填另一个区域，我想我应该划出我想要着色的区域，但我不知道怎么画。
上面的脚本只是一个简单的例子。我真正的剧本是
ggplot(data = ctd,
浏览 0提问于2018-04-27得票数 0
回答已采纳
X轴是时间分裂成时间间隔.数据帧中有一个间隔列，指定每一行的时间。列是一个因子，其中每个间隔都是不同的因子级别。
使用geom_histogram和geom_freqpoly绘制直方图或线很好，但是我希望有一条线，就像geom_freqpoly提供的那样，填充区域。
目前，我正在像这样使用geom_freqpoly：
ggplot(quake.data, aes(interval, fill=tweet.type)) + geom_freqpoly(aes(group = tweet.type, colour = tweet.type)) + opts(axis.text.x=theme_te
浏览 14提问于2010-05-02得票数 12
回答已采纳
1回答
我按照以下代码用几个geom_area创建了一个图：
library(ggplot2)
set.seed(1)
dat <- data.frame(matrix(rnorm(100, 10, 2), 100, 1))
dat_density <- data.frame(density(dat[, 1])[c("x", "y")])
quant <- quantile(dat[, 1], probs = seq(0, 1, 0.10))
library(RColorBrewer)
color_pal <- brewer.pal(leng
浏览 4提问于2015-11-02得票数 0
回答已采纳
3回答
我有一个密度图，我想添加一些汇总信息，比如在中位数上放置一条线，并对90%可信区间(第五和第95分位数)进行阴影。在ggplot中有没有办法做到这一点？
这是我想要总结的情节类型：
我知道如何从y=0到y= density(中位数(X))画一条线，但我不清楚是否可以用90%的CI对图进行着色。或者，我可以在密度图的上方添加一个水平的箱形图，但不清楚如何旋转箱形图本身，而不旋转密度图。
x <- as.vector(rnorm(10000))
d <- as.data.frame(x=x)
library(ggplot2)
ggplot(data = d) + theme_bw()
浏览 1提问于2010-12-28得票数 8
回答已采纳
我想将geom_area()的起始y级别从零移开。这是在下面的示例中，第一次函数调用是可以的，但是我如何才能纠正第二次调用的曲线图：
library(ggplot2)
set.seed(123)
myplot <- function (split.value) {
year <- (2000:2017)
index <- rnorm(18, split.value,5)
interp <- approx(year, index, n=1000)
df <- data.frame(year = interp$x,
浏览 11提问于2017-08-07得票数 5
回答已采纳
我试图让geom_area生成一个堆叠面积图，但它生成了一个入口图。下面是一个例子
library(dplyr)
library(ggplot2)
x = expand.grid(name = c("D01", "D02", "D03", "D04"), component = c("F", "W", "M", "V"))
value = runif( min = 20, max = 150, nrow(x))
data2 = cbind(x, value) %&
浏览 15提问于2020-05-18得票数 1
回答已采纳
我可以得到一个包含geom_ribbon或geom_area的“已填充”geom_line。有没有geom_step的等价物，不需要弄乱多边形/条形图或创建实际的步长点？以下是一些示例数据：
library(ggplot2)
set.seed(1)
df <- data.frame(
x=rep(sort(sample(1:20, 5)), 3),
y=ave(runif(15), rep(1:3, each=5), FUN=cumsum),
grp=letters[rep(1:3, each=5)]
)
ggplot(df, aes(x=x, y=y, color=grp
浏览 3提问于2014-02-20得票数 14
1回答
我有一组2018年波士顿红袜队的输赢记录，开局如下：
Game,W/L,W,L
1,L,0,1
2,W,1,1
3,W,2,1
4,W,3,1
5,W,4,1
6,W,5,1
7,W,6,1
8,W,7,1
9,W,8,1
我想把这个转换成一个堆叠的区域图，比较W和L在ggplot2中的游戏，但是我很难设置这个。我可以开始使用
rec = read.csv('redsox_record.csv')
ggplot(rec, aes(x=Game, y=W)) + geom_area()
但是这只返回了W的图表，我也不知道如何包含L。
浏览 1提问于2018-11-02得票数 1
回答已采纳
我正在使用geom_area使用ggplot2绘制以下数据。这些值被设计为x轴镜像。但是狗的情节的结尾并没有被反映出来。
但是正如你从这个数据框中看到的，狗应该在x=100和y=0上结束，但它似乎在x=100和y=100上结束(见最后一行)
我怎么才能做狗镜猫呢？
x y animal
1 100.0 100 cat
2 90.0 89 cat
3 84.0 85 cat
4 55.5 60 cat
5 28.3 37 cat
6 27.0 32 cat
7 18.0 25 cat
8
浏览 1提问于2014-11-26得票数 9
1回答
我有这个数据集，我想填充area under each line。但是，我遇到一个错误，说：
错误: stat_bin()不能与y美学一起使用。
此外，为了提高透明度，我需要使用alpha值。有什么建议吗？
library(reshape2)
library(ggplot2)
dat <- data.frame(
a = rnorm(12, mean = 2, sd = 1),
b = rnorm(12, mean = 4, sd = 2),
month = c("JAN","FEB","MAR",'
浏览 4提问于2016-12-19得票数 1
回答已采纳
下面的代码确实显示了一个堆叠的区域图，其中显示的两个元素似乎是一个在另一个之上，而不是重叠在y中。
library(ggplot2)
library(lubridate)
theme_set(theme_bw())
df <- economics[, c("date", "psavert", "uempmed")]
df <- df[lubridate::year(df$date) %in% c(1967:1981), ]
# labels and breaks for X axis text
brks <- df$date
浏览 0提问于2018-09-08得票数 0
回答已采纳
我想叠加两个正态分布。然而，如果我将xlim限制在一个很小的区间内，那么这个图看起来相当奇怪：
library(ggplot2)
x=seq(1,6,.01)
dat <- data.frame(
c1 = dnorm(x,4.95, .72),
c2 = dnorm(x,4.85, .91), x = x
)
ggplot(data=dat, aes(x=x)) +
geom_polygon(aes(y=dat[,1]), fill="red", alpha=0.6) +
geom_polygon(aes(y=dat[,2]), fill
浏览 2提问于2017-02-14得票数 0
3回答
我需要使用两个单独的geom_area命令生成一个图，以便在零线上绘制一些时间序列，在零线下绘制一些时间序列。下面是一个简单的例子：
library("reshape2")
library("ggplot2")
d <- as.data.frame(t(read.table(sep=";",header=F,row.names=1,text="
year;1999;2000;2001;2002;2003;2004;2005;2006;2007;2008;2009;2010;2011;2012
primary balance;-5.
浏览 0提问于2015-11-21得票数 0
1回答
我使用R plotly包以及函数ggplotly和subplot创建一个由多个单独交互的ggplot2图组成的交互式绘图。一些地块共享相同的分组变量。
col <- factor(rep(c(1, 2), 5))
fill <- factor(c(rep("a", 5), rep("b", 5)))
x1 <- x2 <- y1 <- y2 <- 1:10
x3 <- y3 <- 11:20
d1 <- dplyr::tibble(x1 = x1, y1 = y1, col = col)
d2 <- d
浏览 0提问于2019-08-22得票数 3
我有一个反复出现的问题快把我逼疯了。我正在使用‘geom_ ggplot2’绘制一个区域，x轴作为日期。我试着把日期分成相等的距离，但我看不出如何……我正在附加我的虚拟数据。第一个图很好地绘制了我的数据，但是如果日期彼此接近，我的日期就会聚在一起。我想使它们与“选项2”中的距离相等，但"date_sr“不会绘制百分比信息。 我真的很感谢你能提供的任何帮助。 require(ggplot2)
library(reshape2)
library(RColorBrewer)
sex <- c('F','F','F',
浏览 28提问于2021-06-21得票数 1
回答已采纳
4回答
我在Hadoop集群上运行了一个Pig作业，它将一堆数据压缩成R可以处理的东西，以便进行队列分析。我有以下脚本，倒数第二行的数据格式如下：
> names(data)
[1] "VisitWeek" "ThingAge" "MyMetric"
VisitWeek是一个日期。ThingAge和MyMetric是整数。
数据如下所示：
2010-02-07 49 12345
到目前为止，我拥有的脚本是：
# Load ggplot2 for charting
library(ggplot2);
# Our file has
浏览 0提问于2010-02-11得票数 4
回答已采纳
2回答
我无法从ggrough库()复制一个示例。特别是，我试图复制以下情节(减去字体方面)：
代码来自上面“幼儿园”标题下的相同链接。
我使用以下代码：
library(hrbrthemes)
library(tidyverse)
library(gcookbook)
library(ggplot2)
library(ggrough)
ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) +
geom_area(alpha=0.8) +
scale_fill_ipsum() +
scale_x_cont
浏览 2提问于2020-09-06得票数 7
回答已采纳
以下是一些数据
structure(list(Period = structure(c(2017.83333333333, 2017.91666666667,
2018, 2018.08333333333, 2018.16666666667, 2018.25, 2018.33333333333,
2018.41666666667, 2018.5, 2018.58333333333, 2018.66666666667,
2018.75, 2018.83333333333, 2018.91666666667, 2019, 2019.08333333333,
2019.16666666667
浏览 6提问于2020-05-22得票数 3
回答已采纳
我已经为我的previous question添加了一个可重现的示例。 我正在尝试得到一个类似于下面这样的图： ? library(ggplot2)
Date <- as.numeric(rep(seq(2000:2005), each = 5))
value <- runif(30,0,100)
group <- rep(LETTERS[1:5],times = 6)
data <- data.frame(Date,value,group)
ggplot(data, aes(x = Date, y = value, fill = group)) +
浏览 22提问于2020-07-17得票数 0
我想从摘要数据集中创建ggplot2::geom_area图，其中某些数据周期(月份)缺少一些数据类别，例如：
require(ggplot2)
set.seed(1)
d = data.frame(x = rep(1:10,each=4), y = rnorm(40,10), cat=rep(c('A','B','C','D'), 10))
(d = d[-sample(1:40,10),]) # remove some rows
ggplot(d, aes(x, y, fill=cat)) + geom_area()
浏览 3提问于2014-02-20得票数 3
回答已采纳
我想用ggplot2做一个图形，我需要截距(=1)和值(我通过geom_line连接)之间的空间/面积是红色(如果值小于1)或绿色(如果值大于1)。数据来自微软(1999年以来的性价比)。
数据：
require(quantmod)
require(dplyr)
require(ggplot2)
getSymbols("MSFT", from ="1999-01-01")
microsoft <- data.frame(time(MSFT), MSFT[,6])
microsoft$time <- as.Date(microsoft$time.M
浏览 4提问于2017-07-06得票数 1
我想用R绘制一个密度函数，然后在下面填充。我的例子是：
library(ggplot2)
x = seq(-4, 4, 0.1)
y = dnorm(x, mean=0, sd=1)
myDF = data.frame(x,y,xfill=ifelse(x>-1,x,0))
p <- ggplot(myDF, aes(x,y))
p + geom_line(size=1) + geom_area(aes(x=xfill),fill="red")
它类似于RStudio中的以下图像。
我在平台上使用的是RStudio版本0.99.902，R版本3.3.1 (
浏览 5提问于2016-09-17得票数 1
回答已采纳
我在教本科生统计学，并试图制作一个有用的R脚本，帮助我的学生理解标准正态分布中的概率计算。我有这样一个脚本，它接受zscore断点，计算每个断点之间的数据分数，并对每个断点部分着色：
library(tidyverse)
library(ggplot2)
library(magrittr)
sim_dat = data.frame(z = seq(-5,5, length.out = 1001))
sim_dat$y = dnorm(sim_dat$z, mean = 0, sd=1)
#fill in z-score bkpts, excluding zero: 0 will alway
浏览 1提问于2021-10-01得票数 1
回答已采纳
1回答
我已经使用以下数据集和ggplot2创建了一个图 我从以下链接下载了CSV格式的数据集 https://www.kaggle.com/dataset/e392d3cfbb5749653d5c82f4bec1daa03628fb06d374fad84eac319f1b3f982422 我使用的代码如下 library(readr)
library(ggplot2)
library(plotly) 接下来，我从CSV文件创建数据帧 DF <- read_csv("C:/Users/mysystem/Desktop/Random3.csv")####Please set
浏览 13提问于2020-08-16得票数 2
回答已采纳
1回答
我的堆积如山的情节在后来的几年里都摇摇欲坠。有人能看看我的密码告诉我哪里出了问题吗？我认为我的代码与示例代码相同(都在下面)。
我不是很有经验的ggplot2图堆叠，所以我可能是一个简单的错误。
我想要的东西看起来像：
生成上述堆叠图的代码可作为R图形本的一部分，可在上找到。
来自库(Ggplot2)库(Gcookbook)的ggplot2
ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) +
geom_area(colour="black", size=.2, alpha=.4) +
scale_f
浏览 4提问于2014-04-07得票数 0
回答已采纳
3回答
我们试图用ggplot2绘制一个区域图，其中x轴上方的正区域是一种颜色，而负区域是另一种颜色。
给定这个数据集，我想要一个面积图在轴的每一边阴影不同的颜色。
我可以找到一种方法，把数据集分成两个子集，一个是正的，所有的负值都是零，另一个是负的，所有的正值都是零，然后把它们分别画在同一个轴上，但是似乎有一种更类似于图形的方法。
在上发布的解决方案没有给出准确的结果(见下文)。
示例数据，准确地显示为条形图
由此代码生成：
# create some fake data with zero-crossings
yvals=c(2,2,-1,2,2,2,0,-1,-2,2,-2)
test
浏览 0提问于2013-07-31得票数 6
回答已采纳
1回答
我正试图用ggplot2和geom_area来做一个情节。填充由一个变量设置。出于某种原因，只有“外部”组被填充。我也想不出怎样才能填满内部区域。
同样的问题似乎也发生了，，但没有给出如何解决它的答案。
下面是我正在使用的代码和结果图的一个最小示例：
我用的是R3.3和ggplot2_2.1.0
任何帮助都将不胜感激。
df <- data.frame(month = seq(from = as.Date("2016-01-01"), to = as.Date("2016-12-31"), by = "month"),
浏览 3提问于2016-06-23得票数 1
回答已采纳
1回答
我试图做一个堆叠的面积图，在R完全一样，这个ggplot2一个(以下)只使用巧妙。
这是。
要生成上述ggplot2图表的巧妙版本，我首先必须在上一列中的值之上添加elw中的每一列的值。这是因为巧妙地(据我所知)无法在区域图表中自动堆叠值。
使用这个新的堆叠数据集elw_stack，我使用以下代码来绘制我的图表：
el_plot2 = ggplot() +
geom_area(aes(elw_stack$year, elw_stack$x99999, fill = 'green')) +
geom_area(aes(elw_stack$year, elw_stac
浏览 2提问于2016-02-12得票数 2
回答已采纳
我如何才能改变填写“姓名”，即: psavert到“个人储蓄率”和"uempmed“到”中位数失业持续时间以周为单位“我还想添加%符号在回报上的7 y轴，无法使用scale_x_discrete()和修改它。
有人能帮帮忙吗？
附件是图片，下面是代码
library(ggplot2)
library(lubridate)
theme_set(theme_bw())
df <- economics[, c("date", "psavert", "uempmed")]
df <- df[lubridate::year(df
浏览 0提问于2017-11-17得票数 0
我有以下代码，我只想填充蓝线下的曲线区域。我如何使用ggplot2做到这一点。我插入了填充选项，但它不起作用。我的示例代码如下： library(dplyr)
library(lubridate)
library(reshape2)
library(ggplot2)
data1 = data2 = data3
nmonths = 25
x = seq(as.Date("1993/1/1"), by = "month", length.out = nmonths)
data1=c(0,17.15,21.06,19.20,11.31,11.19,9.86,9.9
浏览 5提问于2019-03-10得票数 2
回答已采纳
1回答
现在我正在处理这个数据库：
structure(list(year = c(1990, 1991, 1992, 1993, 1994, 1995, 1996,
1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018
), saldo = c(8275867, 3702514, -2636805, -3665755, -5751042,
841426, 48908, -4019329,
浏览 1提问于2019-05-25得票数 0
回答已采纳
我读过几篇关于如何使用geom_area函数填充上面的geom_ribbon图的文章，但没有一篇文章也涉及到数据子集。
请考虑以下数据和绘图。我只想在这个例子(y轴)中填充超过一个阈值，25，但也只能在每个月内的一个子集内填充，在第2天到第12天之间。总之，必须满足这两个条件才能填充，而且我试图得到一个平滑的填充。
我可以通过使用approx函数在我的行上插值许多点来改进下面的图形，但是它仍然不处理我的子集，并在几个月之间连接填充线。
library(ggplot2)
y = sample(1:50)
x = seq(as.Date("2011-12-30"), as.Date
浏览 0提问于2018-05-08得票数 1
回答已采纳
1回答
library(ggplot2)
library(reshape2)
data1 <- seq(1, 300, 3)
data2 <- seq(1, 100, 0.5)
acf1 <- acf(data1, plot = F, lag.max = 25)
acf2 <- acf(data2, plot = F, lag.max = 25)
df<- data.frame(lag = acf1$lag,acf1=acf1$acf,acf2=acf2$acf)
colnames(df)<-c("lag","data1","
浏览 0提问于2018-05-21得票数 1
回答已采纳
1回答
我正试着做一个堆叠的区域图：
library(ggplot2)
ggplot(data, aes(x = variable, y = value, fill = term)) +
geom_area()
但这导致了一个空白的阴谋。
预期地块(例如)
我该怎么做？
data <- structure(list(term = c("models", "percentiles", "models:percentiles",
"models"
浏览 0提问于2018-11-27得票数 3
回答已采纳
当用geom_area做ggplot时，负的y范围包含一些洞，如下面的例子所示。
我还编写了一个非常简单的可重现的例子，来说明这个现象：
require(ggplot2)
require(data.table)
data <- data.table(index = c(0, 1),
x1 = c(-1, -1.5),
x2 = c(-1, 0),
x3 = c(0, -1))
mdt <- melt(data, id.vars = "index
浏览 13提问于2018-08-02得票数 2
如果是重复的，请告诉我原来的问题。
我想使用ggplot2在R中绘制一个图形，下面的代码显示了我想要实现的目标。
require(ggplot2)
require(data.table)
set.seed(1)
dat <- data.table(time = rep(c(1:40), times = 5),
value = runif(200),
team = rep(c("A","B","C","D","E"), each =
浏览 9提问于2017-01-25得票数 0
回答已采纳
我正在尝试按组区分stacked geom_area中的线型和/或颜色。我该怎么做呢？简单地说，geom_area(linetype = type)或color = type是不起作用的。只认为这会改变两个组的值：geom_area(color = "white")。如何按组修改颜色和线型？ 我的虚拟示例： dat <- data.frame(x = c(1:5,1:5),
y = c(9:5, 10,7,5,3,1),
type = rep(c("a", "b"), each =
浏览 10提问于2020-08-26得票数 0
回答已采纳
对于数据：
def.percent period valence
1 6.4827843 1984-1985 neg
2 5.8232425 1985-1986 neg
3 -2.4003260 1986-1987 pos
4 -3.5994399 1987-1988 pos
如果我向点添加一条线，如何使用ggplot2为geom_area()线下的区域上色，使价值"neg“和"pos”具有不同的颜色？
我试过这个：
ggplot(data, aes(x=period, y=def.percent, group = 1))
浏览 0提问于2015-02-26得票数 17
回答已采纳
我想用离散和有序的x轴来表示geom_step()曲线下的区域，例如显示某些频率有序类别的累积分布/。
基本的geom_step()曲线可以这样创建：
library(dplyr)
library(ggplot2)
library(forcats)
diamonds %>%
group_by(color) %>%
summarize(count=n()) %>%
arrange(desc(count)) %>%
mutate(frac_of_tot = count/sum(count),
ecdf=cumsum(frac_of_tot
浏览 3提问于2022-08-31得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
