没有使用geom_raster的渐变色
没有使用geom_raster的渐变色可以通过多种方式实现。以下是一些实现方式：
- ggplot2
ggplot(data = df, aes(x = loc, y = cars_sold)) +
geom_col(fill = "darkblue") +
coord_flip() +
labs(title = "Number of Cars Sold by Dealership") +
facet_wrap(~V1) +
theme_bw() +
theme(panel.border = element_blank(), panel.grid = element_blank(), strip.text = element_blank()) +
scale_fill_manual(values = c("#66CC66", "#FDB813")) +
theme(legend.position = "none") +
labs(title = paste0("Number of Cars Sold by Dealership: ", year))- plotly
library(plotly)
plot_ly(data = df, x = loc, y = cars_sold, type = "bar", color = I("darkblue")) %>%
layout(title = "Number of Cars Sold by Dealership") %>%
facet_wrap(~V1) %>%
theme_bw() %>%
theme(panel.border = element_blank(), panel.grid = element_blank(), strip.text = element_blank()) %>%
scale_fill_manual(values = c("#66CC66", "#FDB813")) %>%
theme(legend.position = "none") %>%
labs(title = paste0("Number of Cars Sold by Dealership: ", year))- ggMarginal
library(ggplot2)
ggplot(data = df, aes(x = loc, y = cars_sold)) +
geom_col(fill = "darkblue") +
coord_flip() +
labs(title = "Number of Cars Sold by Dealership") +
facet_wrap(~V1) +
theme_bw() +
theme(panel.border = element_blank(), panel.grid = element_blank(), strip.text = element_blank()) +
scale_fill_manual(values = c("#66CC66", "#FDB813")) +
theme(legend.position = "none") +
labs(title = paste0("Number of Cars Sold by Dealership: ", year)) +
theme(panel.margin = unit(0, "cm"))以上是一些实现没有使用geom_raster的渐变色的方法。你可以根据自己的需求选择其中一种进行使用。
相关·内容
2回答
ggplot2和facet_wrap -消除小面之间的垂直距离
r、plot、ggplot2
我正在处理一些数据，我想将这些数据显示为一个由图形组成的nxn网格。编辑:更清楚的是，我的数据中有21类。我想按类别划分，并将这21幅图放在一个5x5正方形的网格中(在这个网格中，孤儿本身位于第五行)。因此，facet_wrap而不是facet_grid。
为此，我编写了以下代码(在可复制的示例中使用了良好的旧虹膜数据集)：
library(ggplot2)
library(grid)
cust_theme <- theme_bw() + theme(legend.position="none",
axis.title = element_
浏览 1提问于2015-06-22得票数 5
回答已采纳
1回答
在同一列上有两个值的条形图
r、ggplot2
我有以下图表：
但我需要这样做：
我的代码是：
n_papers<-c(6,4,5,1,6,2,1)
paper_ui<-c(3,2,4,0,1,1,0)
methods<-c("AR","ARMA",'ARIMA',"SARIMA","Loess \n decomposition","Classical \n decomposition","Exponential \n smoothing")
df <- data.frame(n_pap
浏览 6提问于2021-03-02得票数 0
2回答
在ggplot2中，如何在x轴垂直显示月份缩写，而年份水平地低于x轴？
r、ggplot2
我希望下面的时间序列显示月份缩写(例如，Jan、Feb等)按年表顺序排列，以垂直方向排列，同时也在月份以下水平显示年份。请参见下面的理想图形示例。
示例数据：
library(dplyr)
library(ggplot2)
df1 <- data.frame(matrix(ncol = 3, nrow = 12))
colnames(df1)[1:3] <- c("Date", "Group", "Value")
df1$Date <- rep(seq.Date(as.Date("2020-03-14"),as
浏览 9提问于2022-10-11得票数 1
回答已采纳
1回答
scale_color_manual不适用于指定自定义颜色
r、ggplot2、shiny、r-plotly、scale-color-manual
我正在为相同的动作代码分配特定的颜色，但scale_color_manual对我不起作用。默认情况下，拾取的颜色仍为。有什么建议吗？这将是非常有帮助的！可以使用颜色列指定操作代码，也可以选择像“红色”/“黑色”这样的颜色 library(ggplot2)
library(stringr)
library(librudate)
category <- c('task1', 'task2', 'task2','task1','task1')
start_min <-
浏览 114提问于2021-10-08得票数 0
回答已采纳
2回答
如何标记x轴上的条形图？
r、ggplot2
如何将标签添加到x轴上的条形图组(这是图的左边)？很容易标记整个轴，或者允许根据数据生成标签，但我无法弄清楚如何标记每组条形图，如果这是有意义的话。
我知道我可以将项目数据重新编码成完整的句子，但相对于对ggplot代码进行一些更改来说，这似乎不太优雅。
我在这个站点() scale_x_discrete(breaks = 1:5, labels=c("foo","bar","baz","phi","fum")) +上尝试使用类似问题的代码，但它只会导致所有标签从我的图形中消失，我不知道为什么。这个结果比使用sca
浏览 2提问于2022-01-07得票数 1
回答已采纳
1回答
ggplot中的重复xtick标签
r、ggplot2、facet-wrap
我有这个data.frame，我想用ggplot + facet_wrap在方面绘制它
set.seed(1)
df <- data.frame(val=rnorm(36),
gt=c(sapply(c("wt","pd","md","bd"),function(x) rep(x,9))),
ts=rep(c(sapply(c("cb","hp","ac"),function(x) rep(x,3))),4),
浏览 3提问于2016-11-21得票数 1
1回答
在ggplot2中，如何在facet_wraps中使用多行x轴标签？
r、ggplot2
我有多行x轴标签，第一行是月份，第二行是年份。但是，当我尝试使用带有check_aesthetics()的多行轴标签时，会遇到facet_wrap()错误。
示例数据：
library(data.table)
library(dplyr)
library(ggplot2)
df1 <- data.frame(matrix(ncol = 3, nrow = 12))
colnames(df1)[1:3] <- c("Date", "Group", "Value")
df1$Date <- rep(seq.Date(as.Date
浏览 7提问于2022-10-12得票数 0
回答已采纳
1回答
如何更改闪开的条形图，使条形图遵循选定的颜色模式，而不是渐变，以及如何防止条形图改变位置？
r、ggplot2、bar-chart
*一般来说，我对R和编码都比较陌生。我做了一些谷歌搜索和反复试验，以找出我的错误/解决我的问题，但都无济于事。非常感谢您的帮助。
对于上面的文件，我创建了一个闪开的条形图，以显示2017-2020年的每个季度。然而，它产生了一个渐变，我想要单独的颜色。例如，我希望所有Q1s都是红色的。所有的Q2s都是绿色的，等等。我尝试使用scale_fill_manual()，但是没有成功。
testplot1<-ggplot(test, aes(x=Year, y=Sales, fill=Sales))+
geom_bar(position = "dodge", stat=&#
浏览 3提问于2020-05-16得票数 1
回答已采纳
1回答
ggarrange:使用共享的y轴和x轴组合多个绘图:只排列一个共享的y轴，同时保持绘图的比例相同
r、ggplot2、plot、ggpubr
我使用ggpubr::ggarrange创建了一个具有共享y轴和x轴的多重图。我唯一的问题是，第一个曲线图，它确实有y轴，比其他3个曲线图要小，这使得整个图形不成比例。 因此，我正在寻找一种解决方案，只显示一个y实验室，而不会使第一个图与其他3个图不成比例。非常感谢你的帮助，因为我一直在寻找解决这个问题的方法，因为我已经安静了一段时间。 到目前为止，我的方法是从plot (p) 2,3,4中删除y lab，并将其保留在p1上。 这是我的代码： library(ggplot2)
library(ggpubr)
library(dplyr) p1 <- ggplot(arrang
浏览 406提问于2021-07-18得票数 0
回答已采纳
2回答
将geom_point()图转换为条形图
r、ggplot2
我试图制作一个展示不同元素的酒吧情节，但我只想用圆点来制作，我想用条子来制作。尝试加入不同的个别图表，但它看起来不太好。
数据：
1 primary wet aver_ind/day 9.810680
2 primary wet aver_sp/day 7.215686
3 primary wet aver_biomass/day 262.346116
4 primary wet fishers 38.762760
5 primary dry aver_ind/day 10.633333
6 primary
浏览 2提问于2022-07-27得票数 0
1回答
用ggplot2标记小面带
r、ggplot2、axis-labels
这个问题可以是问题的延续。
我需要知道如何给这些条子贴上标签。例如，在给定的链接中，在每个地块的顶部都有提到的年份，例如2009年、2010年等等。如果我需要显示Year=2009、Year=2010等，而不是2009年、2010年等，我应该如何更改代码？
样本代码
set.seed(1)
df=data.frame(year=rep(2009:2013,each=4),
quarter=rep(c("Q1","Q2","Q3","Q4"),5),
sales=40:59+r
浏览 8提问于2022-11-30得票数 1
回答已采纳
2回答
ggplot2 -将分割线添加到矩阵图中
r、ggplot2
我想修改下面的ggplot (取自并修改)，这样它就可以清楚地显示正方形之间的分界线。
我有这个：
我想要的是：
library(ggplot2)
library(reshape2)
mm <- structure(c(TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE,
FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE,
FALSE, FA
浏览 24提问于2018-08-29得票数 2
2回答
水平格图-如何在条形图中定位数据标签
r、ggplot2
我试图将我的数据标签放置在ggplot水平栏中，当标签在栏的末尾被切断时。我尝试过各种不同的方法，比如调整hjust的位置，但是标签在条形下消失了，我甚至尝试使用xlim/ scale_x_continuous来增加x轴，以允许完整地查看标签，但是到目前为止仍然失败。
library(tidyverse)
library(ggplot2)
mydf <- data.frame( Category = c("Approved transactions"),
Nov_21=c(11028),
D
浏览 7提问于2022-03-09得票数 2
回答已采纳
1回答
更改轴标签字体大小时出现的问题
r、plot、ggplot2、graphic
我有一个非常简单的问题。
我正在使用ggplot2代码来改变轴文本和标签的字体大小。但是，无论我在何处放置该命令，轴上都看不到任何更改。所有其他命令都在工作，所以我得到的印象是有什么东西‘覆盖’了主题(axis.text...，axis.title...)命令。
ggplot(Cannock, aes(x=Capacity,color=CPType)) +
geom_histogram(fill="white",position="identity",binwidth=3,lwd=1) +
labs(title="Cannock Cha
浏览 4提问于2018-06-28得票数 1
1回答
饼形图中特定位置的geom_text
r、ggplot2、tidyverse
我想要创建一个饼图，一些标签显示在一定的位置，以表明一个比例测试是否重要与否。我已经成功地创建了一个基本的饼图，并粘贴了下面的代码。我还发布了所需的结果(使用MS软件创建)，并希望得到任何帮助，我可以得到任何创建这个情节。
library(tidyverse)
# defining the dataframe
df <-
data.frame(
condition = c('x', 'y', 'z'),
cat = rep(c('a', 'b'), 3),
freq = c(60
浏览 0提问于2018-03-21得票数 2
回答已采纳
1回答
用ggplot2用线状图叠加桶形图
r、plot、ggplot2、overlay
我的问题类似于发布在和上的问题。
我正在ggplot中创建一个图，其中我有一个条形图，然后想要覆盖多个线条图。为了这个问题的目的，我已经复制了我的代码为两个条形图(一个包括所有年份(2007-2015年)和两个来自特定年份(2007和2015年)，但最终我将覆盖来自10个不同年份的数据。使用的数据可以找到。
library(dplyr)
library(tidyr)
library(gridExtra)
library(ggplot2)
overallpierc<-data[(data$item=="piercing"),]
overp<-overallpier
浏览 2提问于2017-08-27得票数 1
回答已采纳
1回答
在grid.arrange中获得均匀的图形宽度
r、ggplot2、gridextra
我正在尝试用R的gridExtra软件包的grid.arrange绘制三个图形。我想让它们以3列的形式出现在一行中，其中最左边的图形应该有y轴但没有图例，中间的图形不应该有y轴和图例，最右边的图形不应该有y轴但应该包括图例。这样，所有图形都相同的图例和y轴只出现一次。
以下是与基因本体丰富测试相关的数据：
首先，图例的配色方案-每个丰富p值范围的颜色：
color.order <- c("#7d4343","#B20000","#C74747","#E09898","#EBCCD6","#C8C8C8
浏览 0提问于2016-08-02得票数 0
1回答
R文本文件中的分组条形图/聚类柱状图
r、csv、ggplot2、text、bar-chart
我计划从一个文本文件中为12个站点的值绘制聚类柱状图。因此，该图将被分成12组。我很容易就能在excel中做到： ? 但我在使用文本文件中的ggplot2时遇到了问题，这是我使用的代码： library(ggplot2)
library(reshape2)
my_data <- read.table("MLD.txt",header = T)
attach(my_data)
my_data
head(my_data)
df <- melt(my_data, id.vars=1)
ggplot(df, aes(Station, value))
浏览 31提问于2020-09-03得票数 0
回答已采纳
1回答
为ggplot编写自定义函数:如何在添加外部主题时避免重写“主题()”设置
r、function、ggplot2、themes
我希望避免重复绘制代码，所以我为ggplot编写了一个简单的函数。我使用theme()指定了几个首选项。但是，如果我想应用一个外部主题(例如theme_bw())，它将覆盖我的特定theme()首选项。如果我是在用户定义的函数中编写代码而不是，那么解决方案就会很简单:重新排列ggplot的代码结构，以便theme_bw()放在theme()之前，但我不知道如何在自定义函数的情况下解决这个问题。
数据
df <-
data.frame(
x_names = c("asia", "europe", "america", "
浏览 0提问于2020-10-01得票数 3
回答已采纳
1回答
ggplot2条形图中的变更策略
r、ggplot2
如何修改“新感染”、“死亡率”和"TDR级“文本特征？我想把它做得更大更粗体。如何修改"Scen1“、"Scen2”和"Scen3“文本？我已经查看了R文档，但在特定的情况下没有找到答案，在这种情况下，barplot与"dodge“一起使用。
以下是代码：
myd<- data.frame( var1 = rep(c("Newly infected","Mortality","TDR level"),each=3),
samp = rep(c("Sc
浏览 1提问于2018-08-09得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
