如何在R中使用ggplot2编辑图例?
我试图在R中使用gplot2编辑图例。以下是我的数据帧(数据): 我制作散点图的代码如下:如何在R中使用ggplot2编辑图例?,r,ggplot2,legend,R,Ggplot2,Legend,我试图在R中使用gplot2编辑图例。以下是我的数据帧(数据): 我制作散点图的代码如下: library(ggplot2) library(dplyr) graph <- data %>% ggplot(aes(x = data$Age, y = data$Values, group = data$Value)) graph <- graph + geom_line(aes(color = data$Value), na.rm
library(ggplot2)
library(dplyr)
graph <- data %>%
ggplot(aes(x = data$Age,
y = data$Values,
group = data$Value))
graph <- graph +
geom_line(aes(color = data$Value), na.rm = TRUE) +
geom_point(aes(color = data$Value),
size = 1,
na.rm = TRUE) +
labs(title="GeneX", x="Groups", y="Values") +
scale_x_continuous(breaks = c(42.5, 47.5, 52.5, 57.5, 62.5, 67.5, 72.5),
labels = c("Group1", "Group2", "Group3", "Group4", "Group5", "Group6", "Group7")) +
scale_y_continuous(breaks = c(0, 0.025, 0.050, 0.075, 0.100),
labels = c("0", "25", "50", "75", "100"),
limits = c(0,0.105)) +
theme(legend.title=element_blank()) +
guides(fill = guide_legend(title = "On Treatment"))
库(ggplot2)
图书馆(dplyr)
图表%
ggplot(aes(x=数据$Age,
y=数据$value,
组=数据($Value))
图形处理现在混乱的图例的一种方法是使用legend.key.height
增加其高度:
library(dplyr)
library(readr)
library(ggplot2)
"Gene Age Value Values
GeneX 42.5 2.5 0.011
GeneX 47.5 2.5 0.017
GeneX 52.5 2.5 0.012
GeneX 57.5 2.5 0.004
GeneX 62.5 2.5 0.010
GeneX 67.5 2.5 0.017
GeneX 72.5 2.5 0.014
GeneX 42.5 5 0.016
GeneX 47.5 5 0.019
GeneX 52.5 5 0.017
GeneX 57.5 5 0.006
GeneX 62.5 5 0.012
GeneX 67.5 5 0.020
GeneX 72.5 5 0.017
GeneX 42.5 10 0.019
GeneX 47.5 10 0.020
GeneX 52.5 10 0.020
GeneX 57.5 10 0.017
GeneX 62.5 10 0.019
GeneX 67.5 10 0.019
GeneX 72.5 10 0.018
GeneX 42.5 25 0.022
GeneX 47.5 25 0.023
GeneX 52.5 25 0.024
GeneX 57.5 25 0.023
GeneX 62.5 25 0.024
GeneX 67.5 25 0.026
GeneX 72.5 25 0.022
GeneX 42.5 50 0.028
GeneX 47.5 50 0.029
GeneX 52.5 50 0.029
GeneX 57.5 50 0.031
GeneX 62.5 50 0.030
GeneX 67.5 50 0.033
GeneX 72.5 50 0.032
GeneX 42.5 75 0.036
GeneX 47.5 75 0.036
GeneX 52.5 75 0.038
GeneX 57.5 75 0.042
GeneX 62.5 75 0.040
GeneX 67.5 75 0.043
GeneX 72.5 75 0.040
GeneX 42.5 90 0.045
GeneX 47.5 90 0.043
GeneX 52.5 90 0.046
GeneX 57.5 90 0.048
GeneX 62.5 90 0.052
GeneX 67.5 90 0.055
GeneX 72.5 90 0.057
GeneX 42.5 95 0.062
GeneX 47.5 95 0.048
GeneX 52.5 95 0.050
GeneX 57.5 95 0.059
GeneX 62.5 95 0.066
GeneX 67.5 95 0.057
GeneX 72.5 95 0.058
GeneX 42.5 97.5 0.090
GeneX 47.5 97.5 0.067
GeneX 52.5 97.5 0.064
GeneX 57.5 97.5 0.063
GeneX 62.5 97.5 0.079
GeneX 67.5 97.5 0.061
GeneX 72.5 97.5 0.059" %>%
read_table() %>%
ggplot(aes(x = Age,
y = Values,
group = Value)) +
geom_line(aes(color = Value), na.rm = TRUE) +
geom_point(aes(color = Value), size = 1, na.rm = TRUE) +
labs(title="GeneX", x="Groups", y="Values") +
scale_x_continuous(breaks = c(42.5, 47.5, 52.5, 57.5, 62.5, 67.5, 72.5),
labels = c("Group1", "Group2", "Group3", "Group4", "Group5", "Group6", "Group7")) +
scale_y_continuous(breaks = c(0, 0.025, 0.050, 0.075, 0.100),
labels = c("0", "25", "50", "75", "100"),
limits = c(0,0.105)) +
scale_color_continuous(name = "Value nth",
breaks = c(2.5, 5, 10, 25, 50, 75, 90, 95, 97.5)) +
theme(legend.key.height = unit(3, "cm"))
您是否尝试过为您的色阶设置中断,就像您为x和y色阶设置中断一样?@Camille,您能否指出在何处使用这些代码行。我确实尝试过使用scale\u fill\u discrete等方法来添加名称或打断。它生成图形,但不执行任何操作。你能在我的代码中指出这一点吗?你指定了颜色,而不是填充,所以调整填充比例不会改变任何东西。与您有缩放x\u连续
一样,您可以设置缩放颜色连续
。此外,不完全相关,但散点图通常表示代表两个连续变量的点,通常是一个相依和独立变量variable@Camille,非常感谢。这起作用了。我只是想调整一下这个区域,因为传奇现在看起来太混乱了。
library(dplyr)
library(readr)
library(ggplot2)
"Gene Age Value Values
GeneX 42.5 2.5 0.011
GeneX 47.5 2.5 0.017
GeneX 52.5 2.5 0.012
GeneX 57.5 2.5 0.004
GeneX 62.5 2.5 0.010
GeneX 67.5 2.5 0.017
GeneX 72.5 2.5 0.014
GeneX 42.5 5 0.016
GeneX 47.5 5 0.019
GeneX 52.5 5 0.017
GeneX 57.5 5 0.006
GeneX 62.5 5 0.012
GeneX 67.5 5 0.020
GeneX 72.5 5 0.017
GeneX 42.5 10 0.019
GeneX 47.5 10 0.020
GeneX 52.5 10 0.020
GeneX 57.5 10 0.017
GeneX 62.5 10 0.019
GeneX 67.5 10 0.019
GeneX 72.5 10 0.018
GeneX 42.5 25 0.022
GeneX 47.5 25 0.023
GeneX 52.5 25 0.024
GeneX 57.5 25 0.023
GeneX 62.5 25 0.024
GeneX 67.5 25 0.026
GeneX 72.5 25 0.022
GeneX 42.5 50 0.028
GeneX 47.5 50 0.029
GeneX 52.5 50 0.029
GeneX 57.5 50 0.031
GeneX 62.5 50 0.030
GeneX 67.5 50 0.033
GeneX 72.5 50 0.032
GeneX 42.5 75 0.036
GeneX 47.5 75 0.036
GeneX 52.5 75 0.038
GeneX 57.5 75 0.042
GeneX 62.5 75 0.040
GeneX 67.5 75 0.043
GeneX 72.5 75 0.040
GeneX 42.5 90 0.045
GeneX 47.5 90 0.043
GeneX 52.5 90 0.046
GeneX 57.5 90 0.048
GeneX 62.5 90 0.052
GeneX 67.5 90 0.055
GeneX 72.5 90 0.057
GeneX 42.5 95 0.062
GeneX 47.5 95 0.048
GeneX 52.5 95 0.050
GeneX 57.5 95 0.059
GeneX 62.5 95 0.066
GeneX 67.5 95 0.057
GeneX 72.5 95 0.058
GeneX 42.5 97.5 0.090
GeneX 47.5 97.5 0.067
GeneX 52.5 97.5 0.064
GeneX 57.5 97.5 0.063
GeneX 62.5 97.5 0.079
GeneX 67.5 97.5 0.061
GeneX 72.5 97.5 0.059" %>%
read_table() %>%
ggplot(aes(x = Age,
y = Values,
group = Value)) +
geom_line(aes(color = Value), na.rm = TRUE) +
geom_point(aes(color = Value), size = 1, na.rm = TRUE) +
labs(title="GeneX", x="Groups", y="Values") +
scale_x_continuous(breaks = c(42.5, 47.5, 52.5, 57.5, 62.5, 67.5, 72.5),
labels = c("Group1", "Group2", "Group3", "Group4", "Group5", "Group6", "Group7")) +
scale_y_continuous(breaks = c(0, 0.025, 0.050, 0.075, 0.100),
labels = c("0", "25", "50", "75", "100"),
limits = c(0,0.105)) +
scale_color_continuous(name = "Value nth",
breaks = c(2.5, 5, 10, 25, 50, 75, 90, 95, 97.5)) +
theme(legend.key.height = unit(3, "cm"))