R 如何使用ggplot2设置两个x轴和两个y轴
我的数据如下所示:R 如何使用ggplot2设置两个x轴和两个y轴,r,ggplot2,double,axis,heatmap,R,Ggplot2,Double,Axis,Heatmap,我的数据如下所示: d <- data.frame(X=c('x1','x2','x3','x1','x2','x3','x1','x2','x3'), Y=c('y1','y1','y1','y2','y2','y2','y3','y3','y3'), Value=c(1,2,1,3,1,4,3,5,2)) 图表为: 但是,我所有的数据都在500*500左右,所以x轴和y轴上的记号太多了,以至于标签无法清晰识别。但我必须
d <- data.frame(X=c('x1','x2','x3','x1','x2','x3','x1','x2','x3'),
Y=c('y1','y1','y1','y2','y2','y2','y3','y3','y3'),
Value=c(1,2,1,3,1,4,3,5,2))
图表为:
但是,我所有的数据都在500*500左右,所以x轴和y轴上的记号太多了,以至于标签无法清晰识别。但我必须保留所有的价值观
所以我想使用双x轴和双y轴。例如,底部x轴仅保留标签x1、x3、x5。。。顶部x轴仅保留标签x2、x4、x6。。。。然后我对y轴做同样的处理。然后,图表如下所示:
我知道scale_x_continuous和sec.axis可能会这样做。但是我的x和y是离散的
有人能帮我把这张图做成第二张吗?你说得对,因为你只能使用具有连续数据的次轴。一种解决方案是将x和y值转换为连续值进行打印(只需使用一系列整数),但将离散的x和y值保存为向量以用于标记轴 在这里,我以一种可以扩展到更大的实际数据集的方式分配了连续值。我已经为x和y创建了关键数据帧,以将每个唯一的离散值与一个整数匹配,然后将这些关键数据帧与原始数据帧合并,以便为每个离散x和y值分配一个数字值,用于打印
#create key dataframes to assign an integer to each x and y value
key.df.x <- data.frame(X = unique(d$X), x.num = (1:length(unique(d$X))))
key.df.y <- data.frame(Y = unique(d$Y), y.num = (1:length(unique(d$Y))))
#merge key dataframes with original data
d <- merge(d, key.df.x, by = "X", all.x = TRUE)
d <- merge(d, key.df.y, by = "Y", all.x = TRUE)
#make label vectors from original variable names
xlabels = unique(d$X)
ylabels = unique(d$Y)
#select odd numbered elements for primary labels, even for secondary labels
xlabels.primary <- xlabels[seq(1, length(xlabels), by = 2)]
xlabels.secondary <- xlabels[seq(2, length(xlabels), by = 2)]
ylabels.primary <- ylabels[seq(1, length(ylabels), by = 2)]
ylabels.secondary <- ylabels[seq(2, length(ylabels), by = 2)]
ggplot(d,aes(x = x.num, y = y.num,fill=Value)) + #plot using continuous data
geom_tile() +
scale_fill_gradient2(low='green',mid='white',high='red',midpoint=3) +
theme(axis.text.x = element_text(angle = 90),
axis.text = element_text(size = 10),
panel.background = element_blank()) +
# set primary axis breaks to odd numbers, label with ylabels.primary
scale_y_continuous(breaks = seq(1, max(d$y.num), by = 2), labels = ylabels.primary,
# set secondary axis breaks to even numbers, label with ylabels.secondary
sec.axis = dup_axis(breaks = seq(2, max(d$y.num), by = 2),
labels = ylabels.secondary)) +
scale_x_continuous(breaks = seq(1, max(d$x.num), by = 2), , labels = xlabels.primary,
sec.axis = dup_axis(breaks = seq(2, max(d$x.num), by = 2),
labels = xlabels.secondary)) +
labs(x='',y='')
#创建关键数据帧,为每个x和y值分配一个整数
这太棒了!谢谢。
#create key dataframes to assign an integer to each x and y value
key.df.x <- data.frame(X = unique(d$X), x.num = (1:length(unique(d$X))))
key.df.y <- data.frame(Y = unique(d$Y), y.num = (1:length(unique(d$Y))))
#merge key dataframes with original data
d <- merge(d, key.df.x, by = "X", all.x = TRUE)
d <- merge(d, key.df.y, by = "Y", all.x = TRUE)
#make label vectors from original variable names
xlabels = unique(d$X)
ylabels = unique(d$Y)
#select odd numbered elements for primary labels, even for secondary labels
xlabels.primary <- xlabels[seq(1, length(xlabels), by = 2)]
xlabels.secondary <- xlabels[seq(2, length(xlabels), by = 2)]
ylabels.primary <- ylabels[seq(1, length(ylabels), by = 2)]
ylabels.secondary <- ylabels[seq(2, length(ylabels), by = 2)]
ggplot(d,aes(x = x.num, y = y.num,fill=Value)) + #plot using continuous data
geom_tile() +
scale_fill_gradient2(low='green',mid='white',high='red',midpoint=3) +
theme(axis.text.x = element_text(angle = 90),
axis.text = element_text(size = 10),
panel.background = element_blank()) +
# set primary axis breaks to odd numbers, label with ylabels.primary
scale_y_continuous(breaks = seq(1, max(d$y.num), by = 2), labels = ylabels.primary,
# set secondary axis breaks to even numbers, label with ylabels.secondary
sec.axis = dup_axis(breaks = seq(2, max(d$y.num), by = 2),
labels = ylabels.secondary)) +
scale_x_continuous(breaks = seq(1, max(d$x.num), by = 2), , labels = xlabels.primary,
sec.axis = dup_axis(breaks = seq(2, max(d$x.num), by = 2),
labels = xlabels.secondary)) +
labs(x='',y='')