使用&Fill&Quot；在gglot中创建 colored颜色渐变

发布于01月26日

我面临以下问题: 我正在try 使用ggplot2为我的数据创建热图，一切都运行得很好，看起来也很好，除了在我的图例中，我的 colored颜色被划分为对应于列"syn_count"的不同阶段.现在我在想，在传说中，是否有任何方法可以将不同的阶段表示为一个梯度.

以下是我的代码:

all <- ggplot(Neu, aes(type, tag, fill = syn_count))+
  geom_tile()+
  theme(text = element_text(size=8),axis.text.x = element_text(angle = 1, hjust = 1))+
  coord_fixed()+
  scale_fill_distiller(palette="YlGn")+
  labs(title="Inputs of All MeMe-Neurons", x="MeMe-Neuron", y="Inputneuron")+
  guides(fill=guide_legend(title="Number of Synapses"))
all

并与我的情节相对应: My Plot个

我浏览了这里，看到了库比例和Scale_Fill_gradient2的解决方案.但是，由于我在加载库时遇到了一些问题，我想知道是否有任何方法可以使用ggplot2包而不添加任何其他包.

我希望有人在这里可以帮助我和提前感谢！

编辑: 以下是一个数据帧示例:

Tag/syn_count/type
A   24         1
E   500        1
F   310        2
F   67         2
G   266        3
T   80         3
H   270        4

标签(CHR) 类型(CHR) SYN_COUNT(数字)

df = tibble(tag = c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")[runif(100, 1, 10) %>% round()], syn_count = runif(100, 1, 500) %>% round(), type = runif(100, 1, 10) %>% round()) ggplot(df, aes(type, tag, fill = syn_count))+ geom_tile()+ theme(text = element_text(size=8),axis.text.x = element_text(angle = 1, hjust = 1))+ coord_fixed()+ scale_fill_distiller(palette="YlGn")+ # add legend title labs(title="Inputs of All MeMe-Neurons", x="MeMe-Neuron", y="Inputneuron", fill="Number of Synapses") # HERE your legend's title

使用&Fill&Quot；在gglot中创建 colored颜色渐变

推荐答案

R相关问答推荐

创建重复删除的唯一数据集组合列表

管道末端运行功能

如何对数据集进行逆向工程？

如何改变时间图R中的悬停信息？

S用事件解决物质平衡问题

在嵌套列表中查找元素路径的最佳方法

plotly hover文本/工具提示在shiny 中不起作用

使用rvest从多个页面抓取时避免404错误

KM估计的差异：SvyKm与带权重的调查

R -如何分配夜间GPS数据(即跨越午夜的数据)相同的开始日期？

在纵向数据集中创建新行

R+reprex：在呈现R标记文件时创建可重现的示例

使用geom_iles在一个切片中包含多个值

R-找出存在其他变量的各种大小的所有组合

R：使用ApexCharge更改标签在饼图中的位置

如何用不同长度的向量填充列表？

条形图中的条形图没有try 赋予它们的 colored颜色

按两个条件自动过滤数据

子样本间系数检验的比较

我怎么才能把一盘棋变成一盘棋呢？