通过循环字符串在ggplot中设置x变量
在ggplot中设置x变量可以通过循环字符串来实现。循环字符串是指将一个字符串按照一定的规律进行重复，可以用于生成一系列的变量值。
在ggplot中，可以使用aes函数来设置x变量。通过循环字符串，可以生成一系列的变量名，然后将这些变量名作为参数传递给aes函数，从而设置x变量。
下面是一个示例代码：
library(ggplot2)
# 定义一个循环字符串
x_vars <- c("var1", "var2", "var3", "var4")
# 创建一个空的ggplot对象
p <- ggplot()
# 循环字符串，设置x变量
for (x_var in x_vars) {
# 生成数据集，这里使用的是mtcars数据集
data <- data.frame(x = mtcars[[x_var]], y = mtcars$mpg)
# 添加散点图层
p <- p + geom_point(data = data, aes(x = x, y = y))
}
# 显示图形
print(p)在上面的代码中，我们首先定义了一个循环字符串x_vars，其中包含了四个变量名。然后，我们创建了一个空的ggplot对象p。接下来，通过循环字符串x_vars，生成了四个数据集，每个数据集包含了一个x变量和一个y变量。然后，我们使用geom_point函数将这些数据集添加到ggplot对象p中，通过aes函数设置x变量和y变量。最后，通过print函数显示图形。
这种方法可以方便地在ggplot中设置多个x变量，适用于需要比较多个变量之间的关系的场景。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云计算服务：https://cloud.tencent.com/product/cvm
- 腾讯云数据库服务：https://cloud.tencent.com/product/cdb
- 腾讯云服务器运维服务：https://cloud.tencent.com/product/cds
- 腾讯云音视频处理服务：https://cloud.tencent.com/product/mps
- 腾讯云人工智能服务：https://cloud.tencent.com/product/ai
- 腾讯云物联网服务：https://cloud.tencent.com/product/iot
- 腾讯云移动开发服务：https://cloud.tencent.com/product/mob
- 腾讯云存储服务：https://cloud.tencent.com/product/cos
- 腾讯云区块链服务：https://cloud.tencent.com/product/baas
- 腾讯云元宇宙服务：https://cloud.tencent.com/product/vr
相关·内容
3回答
在ggplot2中，如何引用带空格的变量名？
为什么在带引号的变量名上使用qplot()和ggplot()会中断？
例如，这是可行的：
qplot(x,y,data=a)
但这不是：
qplot("x","y",data=a)
我之所以这样问，是因为我经常使用名称中包含空格的数据矩阵。例如，“国家收入”。ggplot2需要数据帧；好的，我可以转换。所以我想试试这样的东西：
qplot("State Income","State Ideology",data=as.data.frame(a.matrix))
这是失败的。
而在bas
浏览 0提问于2010-12-29得票数 28
回答已采纳
1回答
我有以下简单的函数，但它的ggplot命令不起作用。当从命令行发出命令时，该命令工作正常：
> testfn <- function(gdf, first, second){
library(ggplot2)
print(ggplot(gdf, aes(first, second)) + geom_point())
}
>
> testfn(myda
浏览 5提问于2014-04-30得票数 5
回答已采纳
2回答
我正在尝试编写代码来使用我的数据集，并为数据集的每一列创建一个新的图形，而不是每次都在代码中为y写出一个新值。
我有一个数据集，其中每一行是一个人，每一列是血液中的测量值(即胰岛素、葡萄糖等)。我有几个额外的列，用来描述我的小组(例如，瘦，胖)。我想为这些列的每一个测量值绘制一个图表(例如，一个图表代表胰岛素，另一个图表代表葡萄糖，等等)。我有90个不同的变量需要循环。
我已经想出了如何为每个元素绘制框图，但不知道如何让代码“循环”？这样我就不必为每个变量重写代码了。
以mtcars数据集为例，我让它制作一个y是disp的图，然后是另一个图，其中y= hp，然后y= drat。
data(&#
浏览 0提问于2020-06-12得票数 1
我有一个非常简单的循环，试图用ggplot在同一张图上绘制四条曲线。以下是代码：
df = data.frame(x=0:10/10)
gg = ggplot(df)
for (t in 4:1/4)
gg = gg + geom_path(aes(x,x^t))
gg
当我运行它时，它只显示最后一个图形。如果我一次加一个，如：
df = data.frame(x=0:10/10)
gg = ggplot(df)
gg = gg + geom_path(aes(x,x^1.00))
gg = gg + geom_path(aes(x,x^0.75
浏览 3提问于2017-02-14得票数 1
回答已采纳
1回答
下面的代码按需要生成两行
p <- ggplot()
p <- p + geom_line(aes(x=c(0,1),y=c(0,1)))
p <- p + geom_line(aes(x=c(0,1),y=c(0,2)))
用循环替换它只会导致一行
p <- ggplot()
for(i in 1:2){
p <- p + geom_line(aes(x=c(0,1),y=c(0,i)))
}
我怎么才能解决这个问题？我想在我的情节中添加任意数量的行。
浏览 0提问于2019-05-16得票数 3
回答已采纳
有时，在执行探索性分析或生成报告时，我们希望为许多变量绘制单变量分布图。我可以在完成一些整洁的技巧之后再做这件事，但是有一些有序的因素，我想让它们在情节上有序。
因此，为了更有效地完成它，我构建了一个简单的基于dplyr/ggplot的函数。我在下面的示例中使用了vcd包的关节炎数据集。
library(dplyr)
library(ggplot2)
data(Arthritis, package = "vcd")
head(Arthritis)
plotUniCat <- function(df, x) {
x <- enquo(x)
df %>
浏览 0提问于2018-06-14得票数 5
回答已采纳
2回答
我想根据一个变量的值对我的数据集进行子集，并以该变量的值作为绘图的名称和ggtitle，并保存每个绘图。
最后，我想把所有的图表合并成一页。
下面是一个简化的例子。
y=rnorm(100, 0,1)
x=sample(100, 5, replace = T)
k=5
z=sample(k, 100, replace=T)
z <- factor(z, levels = c(1,2,3,4,5),
labels = c("red", "blue", "green", "purple"
浏览 1提问于2019-08-05得票数 1
回答已采纳
我想要构建一个ggplot对象的列表。我想在x轴上绘制一个变量，但在y中的数据帧中绘制其他变量，当我运行循环时，所有的值都与最后一个变量相同。
我希望使用grid.arrange函数在一个页面上绘制所有的图表。
我的助手：
library(ggplot2)
l <- list()
for(i in 2:11){
p <- ggplot(mtcars, aes(x = mpg, y = mtcars[,i])) + geom_smooth() + geom_point()
name <- paste("p",i,sep="_"
浏览 4提问于2018-03-08得票数 1
回答已采纳
1回答
我想针对我的ggplots为numeric cols创建response variable。
以下是可复制的代码：
test = mpg %>% select_if(is.numeric) %>%
dplyr::select(-year) %>% nest(-cyl) %>%
mutate(ggplots = map(data,~ggplot(data = .x) + geom_point(aes(x = cyl, y = .x))))
test
# A tibble: 4 x 3
cyl data ggplots
<int&
浏览 1提问于2019-10-02得票数 4
回答已采纳
我试图在ggplot周围创建一个包装器，它允许我添加一些美观性，比如x变量或颜色，但总是预先填充y、ymin和ymax，而不必使用引用的变量名。
由于ggplot2不能使用整洁的评估，所以我不得不使用NSE来完成这个任务，但是我被困住了，我能够找到和以及检查一些函数的信息让我尝试了一些东西，比如unlist(...)和使用match.call()。但他们只会犯不同的错误。
在下面的函数中，我基本上希望能够调用ci_plot()或例如ci_plot(color = cyl)
library(dplyr)
library(ggplot2)
library(purrr)
library(tidyr)
浏览 5提问于2017-07-31得票数 0
回答已采纳
我想将多条曲线添加到一个ggplot中。使用普通的plot和curve(add=TRUE)，我可以循环曲线函数，并可以添加多个曲线/函数。
因为我想为ggplot重写我的代码，所以我想弄清楚如何用ggplot来实现这一点。
我使用的是stat_function和一个for循环，但是ggplot并没有添加curve，只是保存了最后一个。
单行的最小可重现性示例：
library(ggplot2)
p1<-ggplot()
for (i in 1:10){
p1<- p1 + stat_function(aes(x=1:200),fun = function(x) {x+i*3},
浏览 0提问于2019-02-21得票数 1
回答已采纳
2回答
我只想使用ggplot2在散点图上绘制多个箭头。在这个(虚拟)示例中，绘制了一个箭头，但它随着i的增加而移动，并且只绘制了一个箭头。为什么会发生这种情况？
library(ggplot2)
a <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
b <- data.frame(x1=c(2,3),y1=c(10,10),x2=c(3,4),y2=c(15,15))
for (i in 1:nrow(b)) {
a <- a + geom_segment(arrow=arrow(),
mapping
浏览 1提问于2016-08-21得票数 4
所以我想加上最小值，25.pc，中位数，75。pc和max到一个带有一个变量的ggplot中的boxplot。出于示例的目的，我将描述mtcars数据集的问题。我看到了另一个带有类似问题的帖子：annotate boxplot in ggplot2和我试图复制用户eipi10的答案。但是这个过程只有一个变量失败了。分位数函数以某种方式给出了其他输出。它显示了图中变量中每个数据点的值。 library(ggplot2)
ggplot(mtcars, aes(x = mpg) +
geom_boxplot(width = 0.6) +
stat_summary(geom = "
浏览 34提问于2021-01-22得票数 1
回答已采纳
1回答
我使用ggplot在R中创建绘图，使用tikzdevice保存它们，然后使用latex在更大的文档中编译它们。
当我创造一个非常简单的情节。
require(ggplot2)
require(tikzDevice)
tikz("test.tikz", height = 4, width = 4)
ggplot(data = data.frame(x = c(1:3), y = c(1:3)), aes(x=x, y=y)) +
geom_point() +
theme(text = element_text(family = "sans", face = &#
浏览 2提问于2017-01-03得票数 3
我不知道什么时候把geom的参数放在aes()-function中，什么时候不放。下面是一个简单的例子： 代码 library(dslabs)
library(ggplot2)
p <- ggplot(data=murders) +
geom_point(aes(x=population, y=total), color="red")
print(p) 和变种一样好用 library(dslabs)
library(ggplot2)
p <- ggplot(data=murders) +
geom_point(aes(x=population, y=
浏览 20提问于2020-01-07得票数 0
回答已采纳
1回答
我正在尝试创建一个函数，循环遍历我的数据集的列，并保存我的每个变量的qq图。我花了很多时间寻找一个解决方案，但我是一个R新手，没有能够成功地将任何答案应用于我的数据。有人能看出我做错了什么吗？
我给出的错误是，“eval中的错误(expr，envir，eval)：对象'i‘找不到”
library(ggplot2)
QQPlot <- function(x, na.rm = TRUE, ...) {
nm <- names(x)
for (i in names(mybbs)) {
plots <-ggplot(mybbs, ae
浏览 1提问于2015-08-23得票数 0
回答已采纳
2回答
我正在尝试使用ggplot2以编程方式绘制发行版。
我不知道如何在这里使用非标准评估(NSE) (即使在阅读了Hadley的书中关于NSE的章节等之后)。
考虑以下代码：
library(ggplot2)
gg_dens <- function(x){
eval(ggplot(data.frame(x), aes_string(x = substitute(x))) + geom_density() +
ggtitle(substitute(x)), data.frame(x))
}
lapply(mtcars, function(x) gg_dens(x)
浏览 2提问于2016-07-08得票数 5
回答已采纳
我正在用ggplot2制作一个条形图，出于表示的原因，我需要在我的一些条形图之间留出空间。我在scale_x_discrete中使用限制来插入空条，这给了我所需的间距。
在我的模拟数据中，组b和c之间的差距看起来是完美的，但是a和b之间的差距仍然有黑色的勾号和背景中的白线。我不需要任何x轴网格线，所以我可以很容易地解决白线的问题，但我无法计算出如何去掉勾标。
我使用的是R版本3.3.1 (2016-06-21) --“头发上的虫子”，在RStudio中工作，代码需要ggplot2
### Mock data with the same structure as mine
my.data <
浏览 1提问于2016-09-16得票数 7
回答已采纳
我想用geom_text()函数在ggplot图上显示一个文本标签列表。
这些标签的位置存储在列表中。
当使用下面的代码时，只会出现第二个标签。
x <- seq(0, 10, by = 0.1)
y <- sin(x)
df <- data.frame(x, y)
g <- ggplot(data = df, aes(x, y)) + geom_line()
pos.x <- list(5, 6)
pos.y <- list(0, 0.5)
for (i in 1:2) {
g <- g + geom_text(aes(x = pos.x[[
浏览 0提问于2016-03-31得票数 2
回答已采纳
2回答
我是ggplot2的新手，所以请容忍我。我想在ggplot2中绘制一个散点图，在这里我可以对数据着色，或者根据第二个可变因子改变点的大小。我可以使用plot()函数来处理颜色，如下所示：
#simulate data
x1 <- rnorm(100)
y <- as.factor(runif(100)<=.70)
df <- data.frame(x1,y)
#plot
plot(df$x1, col = df$y,cex = 1, pch = 19)
这是我在ggplot2上的尝试：
qplot(seq_along(df$x1), df$x1) + scale_col
浏览 2提问于2017-08-02得票数 0
回答已采纳
1回答
第一次在这里问问题，所以如果我搞砸了，请告诉我，我会很乐意解决的。
在尝试动态创建由ggplot2生成的多个图形，然后使用gridExtra::grid.arrange打印图形时，我注意到使用for循环或使用lapply会产生不同的结果。
令人惊讶的是，虽然lapply产生了预期的结果，但是用for循环创建的图形最终得到了所有相同的y数据。
下面是一个可重复的例子：
library(ggplot2)
library(gridExtra)
gen.plot <- function(df, x.colName, y.colName, title,
浏览 0提问于2018-11-23得票数 0
2回答
我使用的是卷曲卷曲，在ggplot中，它似乎不起作用，如何在第2次尝试中使用ggplot中的label标签。对于Try#3，我想通过函数中的咕噜传递所有数值变量。
尝试#1 -这是有效的
library(tidyverse)
myplot <- function(df,col) {
df %>%
ggplot(aes(x={{col}}))+
geom_histogram()+
# labs(title=paste0("Histogram for ",{{col}}))+
theme_classic()
}
myplot(iris,S
浏览 2提问于2021-08-20得票数 3
回答已采纳
我正试图将一组地块(ggplot)保存到列表中，而在最后一个图覆盖所有列表索引的情况下，这是一种奇怪的行为。
这是我的代码：
library(ggplot2)
mtcars <- mtcars[, c('cyl', 'am', 'gear', 'mpg')]
plots <- list()
for (i in 1:3) {
plots[[i]] <- ggplot(
mtcars,
aes(x = factor(mtcars[, i]), y = mtcars[, 'm
浏览 0提问于2021-11-25得票数 0
回答已采纳
geom_col I希望将相应的值标签放置在每个条形段中间的叠加条形图中。
然而，我天真的尝试失败了。
library(ggplot2) # Version: ggplot2 2.2
dta <- data.frame(group = c("A","A","A",
"B","B","B"),
sector = c("x","y","z",
浏览 4提问于2016-11-21得票数 32
回答已采纳
我正在尝试使用ggplot2创建绘图，以标准化许多类似绘图的创建。如果您可以使用theme()、stat_*()或geom_*()和+运算符堆叠大量选项，那么如何将其包装在函数中？
我想创建一个函数来绘制数据框的部分，例如：
library(ggplot2)
test<-function(fdata,fx){
p<-ggplot(fdata,aes(x=fx,y=mpg))+geom_point()
print(p)};
test(mtcars,wt)
返回以下错误：
Error in eval(expr, envir, enclos) : object 'fx&
浏览 0提问于2013-05-16得票数 3
回答已采纳
这是我的数据框架：
x1 <- c(1,2,3,4)
x2 <- c(3,4,5,6)
x3 <- c(5,6,7,8)
x4 <- c(7,8,9,10)
x5 <- c(8,7,6,5)
df <- c(x1,x2,x3,x4,x5)
我从我的数据帧中选择了3个变量来绘制3个独立的散点图，每个散点图都与x1对应，并将它们存储在一个字符向量中：
varlist <- c("x2","x4","x5")
所以我想创建一个函数，用x2绘制x1，用x4绘制x1，用x5绘制x1的3个独立散点图，使用ggplot
浏览 5提问于2017-02-01得票数 0
回答已采纳
1回答
我想做一系列的例子，并尝试使用一个函数。如何控制是否使用形状、alpha、大小等？下面是我使用的代码：
library(ggplot2)
ggplot_example <-
function(aesthetic, var){
ggplot(mpg) +
geom_point(aes(x = displ, y = hwy,
aesthetic = get(var)))
}
ggplot_example("color", "hwy")
ggplot_example("color&
浏览 6提问于2017-01-27得票数 1
回答已采纳
我在ggdist中绘制了dotinterval，我想设置不同宽度的不同线条的颜色。但是，scale_interval_color_discrete不起作用。
library(ggplot2)
library(dplyr)
library(scales)
library(distributional)
library(tibble)
data(iris)
df <- as.tibble(iris)
ggplot(df)+
aes(y=Species,x=Sepal.Length)+
stat_pointinterval(.width = c(0.9,0.8,0.6,0.5),
浏览 0提问于2021-09-11得票数 0
1回答
我试图用ggplot2在R中复制下面的图表，这是我在Excel中生成的：
我能够用geom_line()、带有geom_text() /一些手动调整的标签以及y轴成功地创建行。在下面找到我的代码：
library(readxl)
library(ggplot2)
somedata <- read_excel("somedata.xlsx")
somedata[,c(3:6)] <- somedata[,c(3:6)] * 100
somedata[,6] <- somedata[,6] + 25
somegraph <- ggplot(d
浏览 3提问于2020-05-01得票数 1
回答已采纳
我试图用一条线性回归线来循环ggplot2图。当我手动输入y列名时，它可以工作，但我正在尝试的循环方法不起作用。这绝对不是数据集问题。
我尝试过很多不同网站的解决方案，比如如何循环一个ggplot，而我尝试过的解决方案是我能找到的最简单的解决方案，几乎可以做到这一点。
工作的代码如下：
plots <- ggplot(Everything.any, mapping = aes(x = stock_VWRETD, y = stock_10065)) +
geom_point() +
labs(x = 'Market Returns', y = 'St
浏览 2提问于2019-06-05得票数 0
回答已采纳
我试着用ggplot (在闪闪发亮的应用程序之外)单独绘制该图形，它绘制得很好，所以我知道问题不在于我的ggplot代码，而在于如何将闪亮的应用程序中的输入输入到renderplot({})部分。输入是轴。
代码：
library(ggplot2)
library(shiny)
data1 <- mtcars
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput(
inputId = "xaxis",
label = "Choose
浏览 0提问于2018-08-03得票数 2
回答已采纳
1回答
我有问题要用另一个变量在facet_wrap后的散点图上加上相关系数。下面是我使用mtcar数据集进行演示的示例。当我把它画出来时，两个图都有相同的相关数。似乎没有计算每个方面的相关系数。我想不出实现这一目标的方法。如果有人能帮忙的话.
library(ggplot2)
library(dplyr)
corr_eqn <- function(x,y, method='pearson', digits = 2) {
corr_coef <- round(cor.test(x, y, method=method)$estimate, digits = digit
浏览 2提问于2017-09-15得票数 5
回答已采纳
请考虑以下代码：
require(ggplot2)
ggplot(data = mtcars) +
geom_point(aes(x = drat, y = wt)) +
geom_hline(yintercept = 3) +
facet_grid(~ cyl) ## works
ggplot(data = mtcars) +
geom_point(aes(x = drat, y = wt)) +
geom_hline(yintercept = 3) +
facet_grid(~ factor(cyl))
浏览 0提问于2018-07-04得票数 2
回答已采纳
2回答
我想把条形图放在另一个条形图的前面(我用字母来传达信息)
在ggplot2中，如果我使用ggplot() + geom_bar() + geom_bar()，我最终会得到一个堆叠的条形图，而不是一层在另一层之前。如何更改/禁用此功能？
TPlot = ggplot() +
geom_bar(aes(x = 1:3, y=c(1,1,1), width=0.1),stat="identity", alpha=0, colour = "red",position="identity") +
xlab("x") +
yla
浏览 2提问于2013-05-29得票数 1
回答已采纳
1回答
我在Ubuntu18.04上使用RStudio 1.4。我使用外部设备X11来查看图形，因为我经常需要同时显示多个绘图。我希望在默认情况下让ggplot显示新设备中的每个绘图，就好像在调用ggplot之前总是先调用dev.new()一样。我可以做一堆手动关闭窗户的工作。有没有一种方法可以实现这种默认行为呢？下面是MWE。
library(tidyverse)
options(device = "X11")
# regular default behavior, where a new ggplot call will overwrite the plot in the act
浏览 11提问于2021-02-19得票数 0
2回答
在一个轴上的多个多边形
、、、
我在R编程中是新的，我想在一个图表中画出多个三角形。当我在for循环中放置ggplot命令时，它只重置图表viewer.But --我希望同时在一个图中看到所有的图。这是我一直在做的代码。
data<-read.csv("test.csv",sep=",",header=TRUE)
library("ggplot2")
for(i in 1:5){
D=data.frame(x=c(data$x1[i],data$x2[i],data$x3[i]),
y=c(data$y1[i],data$y2[i],data$y3[i]))
浏览 1提问于2016-02-06得票数 1
回答已采纳
我想在一个数据帧中使用多对变量来绘制许多图，所有这些都是使用相同的x，我将这些图存储在一个命名列表中。为了简单起见，下面是一个示例，每个图中只有一个变量。
这个函数的关键是一个select()调用，这个调用在这里显然不是必要的，但与我的实际数据有关。
函数的主体对每个变量都能很好地工作，但是当我循环遍历变量列表时，列表中的最后一个总是生成
在get(Ll)中出错:找不到对象d‘。
(或者任何最后一个变量，如果不是'd')。将data <- df %>% select(x,ll)替换为data <- df避免了错误。
## make data
df2
浏览 3提问于2022-01-15得票数 2
回答已采纳
1回答
这是它自己的代码，它可以工作。 ggplot(stkPres, aes(x = AAPL, y = AAPL.ret)) + geom_point() 下面是我在一个函数中的尝试： graphic.stock.vs.return <- function(abbrev) {
ggplot(stkPres, aes(x = abbrev, y = abbrev.ret)) + geom_point()
} 苹果(graphic.stock.vs.return)会以与ggplot(stkPres，aes(x = AAPL，y= AAPL.ret)) + geom_point()完全相
浏览 14提问于2021-01-21得票数 1
回答已采纳
我想比较一下我的数据在一个地块中的一些子组和另一个地块中的另一些子组。如果我把所有的子组都画成一个图，这个数字是压倒性的，每一个单独的比较都变得很困难。我认为，如果一个给定的子组在所有情节中都是相同的颜色，对读者来说会更有意义。
以下是我尝试过的两件事，它们几乎都起作用了，但两者都不起作用。他们离我很近，我可以去一辆MWE！
错误，因为图例中显示了所有三个级别
library(tidyverse)
# compare first and second species
ggplot(data = iris %>% filter(Species != 'virginica'
浏览 3提问于2017-03-19得票数 7
回答已采纳
2回答
我有三栏的数据:年龄，性别和收入。
我想循环遍历这些列，并根据它们中的数据创建图。
我知道在stata中，您可以遍历变量，然后使用这些变量运行命令。然而，下面的代码似乎不起作用，是否有一种类似的方法来完成我想在R中做的事情？
groups <- c(df$age, df$gender, df$income)
for (i in groups){
df %>% group_by(i) %>%
summarise(n = n()) %>%
mutate(prop = n/sum(n)) %>%
ggplot(aes(y = prop,
浏览 2提问于2021-09-24得票数 1
回答已采纳
2回答
从列表中存储的数据帧绘制多个图
、、、、
当我尝试为列表中的单个数据帧绘图时，我正在尝试从存储在list.My代码中的每个数据绘制多个绘图：
ggplot(data.frame(s[1]), aes(x = No, y = Val)) +
geom_line(linetype = "dashed",color="red")+geom_point()
但是当我运行一个循环时，它无法工作。
for (i in 1:3)
{
ggplot(data.frame(s[i]), aes(x = No, y = Val)) +
geom_line(linetype = "dashed&#
浏览 14提问于2019-11-21得票数 0
回答已采纳
我的问题与这个1完全相同，但所提供的答案并不适用于我的系统。
问:如何在for循环中添加geom_segment()层？如果我使用aes，正如引用的问题的操作一样，我也只能得到最后一层。如果，正如回答者所建议的，我不使用aes，我根本就没有任何片段。
下面是一个很小的例子：
ga <- 2.39996322972865332
p <- ggplot()
p <- p + scale_y_continuous(limits = c(-1, 1))
p <- p + scale_x_continuous(limits = c(-1, 1))
for (i
浏览 0提问于2015-03-13得票数 2
回答已采纳
我正在尝试做一些类似于这个的事情
但不同的是，我有两个时间序列，在这个链接中建议的解决方案不起作用。所以这就是我试过的
library(ggplot2)
library(plotly)
library(dplyr)
t = rnorm(10, 0, 1)
x = rnorm(10, 0, 1)
y = rnorm(10, 0, 1)
z = rnorm(10, 0, 1)
df = data.frame(t,x,y,z)
p = df %>% ggplot() + geom_point(aes(t, x, text = paste(z)), color = "red
浏览 2提问于2021-01-12得票数 1
回答已采纳
我正在尝试创建一个PHP，给出从1.00，1.01，1.02 ...1.99的十进制数字，我想提交像1.00，然后1.01，然后1.02，直到1.99的数据。我已经创建了一些代码。
for ($x = 1.00; $x <= 1.99; $x+=0.01)
{
echo "$x\n";
}
这是post数据
$data="rs=$x";
当我尝试提交post数据时，我在输出中只得到了1.99的值，但我想要从1.00到1.99的所有值，请给我一些建议。
浏览 0提问于2015-12-04得票数 0
3回答
我试着用ggplot2制作盒式情节。
我必须用我想要的格式制作方框的代码如下：
p <- ggplot(mg_data, aes(x=Treatment, y=CD68, color=Treatment)) +
geom_boxplot(mg_data, mapping=aes(x=Treatment, y=CD68))
p+ theme_classic() + geom_jitter(shape=16, position=position_jitter(0.2))
我可以使用以下代码来制作循环框：
variables <- mg_data %>%
select(1
浏览 10提问于2022-06-17得票数 2
回答已采纳
1回答
我配置了一个csv导入函数来显示一个图形。导入之后，我选择定义我的X、Y和Groupby的列。根据我导入的CSV，ID字段可以是数字的，也可以是字符的。使用此函数，当我导入包含字符ID的CSV时，所显示的图形是正确的，但当它包含数字ID时则不正确。
，它给了我这个：
和我想要这样的东西:
这里是我的代码:
#-------- REACTIVE DATA --------#
data <- reactive({
req(input$csv_chart)
infile <- input$csv_chart
if (is.null(infil
浏览 0提问于2019-07-19得票数 0
回答已采纳
1回答
我有一份随附的名单。
Site Name 5833 count ratio
1 Boston 0 days per week 1 0.01428571
2 Boston 1 day per week 6 0.08571429
3 Boston 2 days per week 11 0.15714286
4 Boston 3 days per week 5 0.07142857
5 Seattle 0 days per week 2 0.028
浏览 3提问于2017-01-16得票数 0
1回答
用mapply分别绘制多个直方图
、、、、
我想为来自不同数据集的多个连续变量绘制直方图。我创建了一个函数，用于ggplot直方图：
library(ggplot2)
# two parameters
FU <- function(dat, var){
ggplot(data = dat, aes_string(var)) +
geom_histogram(aes(y=..density..), bins = 20)}
FU(diamonds, "y")
现在，我定义了一个包含连续变量的列表，并希望将其应用于钻石数据集：
vars <- list("x", "y"
浏览 2提问于2016-12-20得票数 0
回答已采纳
1回答
我想为ggplot2制作一个主题，它定义了当使用一种或多种颜色时要使用的某个调色板。我知道当一个图使用多种颜色时该怎么做(在这里描述：)。但是，当绘图只使用一种颜色时，我也希望能够使用预设颜色。
示例
让我们假设我有以下数据：
library(ggplot2)
set.seed(100)
x <- rnorm(100)
y <- x + rnorm(100, sd=.4)
df <- data.frame(x = x, y = y)
以及以下主题：
t <- theme_bw()
myColors <- c('red', 'blue'
浏览 1提问于2017-05-10得票数 0
3回答
X轴上带串的on图
、、、
我正在画一幅有几条曲线的图。X轴不是数值，而是字符串.
这很好(如在中)：
require(ggplot2)
df_ok <- rbind(data.frame(x=4:1,y=rnorm(4),d="d1"),data.frame(x=3:1,y=rnorm(3),d="d2"))
ggplot(df_ok, aes(x,y)) + geom_line(aes(colour=d))
但我的数据如下：
require(ggplot2)
df_nok <- rbind(data.frame(x=c("four","three&#
浏览 6提问于2012-05-08得票数 17
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
