使用ggplot在R中的y軸上繪制多個(gè)變量

我是R的新手,但對(duì)matlab有一些經(jīng)驗(yàn)。我試圖在一張按動(dòng)物模型基因型劃分的圖上繪制三種不同面積測量值之間的比較圖。我想按基因型繪制Glom.Area、Glom.Tuft和Mesangial.Area的分面圖(對(duì)照v Cre-)。

到目前為止我的代碼:

# Setup
library(tidyverse)
library(ggbeeswarm)
library(readxl)

# work space
setwd("C:/Users/k_nic/OneDrive/Desktop")

# Read in csv file
t1 <- read.csv("sample.csv", header = TRUE)

# plot for one varible
ggplot(t1, aes(x = Genotype, y= Glom.Area))

Dataset:

   Genotype Sex Glom.Area Glom.Tuft Mesangial.Area
1   Control   M  6617.669  3804.877       1917.310
2   Control   M  7986.696  5377.977       2761.949
3   Control   M  8617.410  4443.345       2335.244
4   Control   M  7785.355  4307.021       2381.512
5   Control   M  9159.720  5568.449       3163.232
6   Control   M  8484.327  5314.041       3238.861
7   Control   M 10315.521  6105.294       3429.906
8   Control   M  5517.161  3090.970       1878.288
9      Cre-   M  6075.166  3438.421       2147.758
10     Cre-   M  8947.698  5809.953       3744.117
11     Cre-   M  6677.471  4315.344       2113.502
12     Cre-   M  7616.932  4293.291       2763.791
13     Cre-   M  8191.464  4778.529       2159.007
14     Cre-   M  8549.339  6043.961       2922.295
15     Cre-   M 11057.196  6546.740       3771.891
16     Cre-   M  5911.768  3382.556       1754.674

這就是我希望它看起來的樣子:

非常感謝您的幫助!

? 最佳回答:

在這種方法中,我們將三個(gè)測量值轉(zhuǎn)換為long-form數(shù)據(jù)。我們將測量名稱映射到x-axis及其沿y的相應(yīng)值。將基因型映射到填充美學(xué)產(chǎn)生成對(duì)的列。

library(tidyverse)

df %>%
  pivot_longer(c(Glom.Area, Glom.Tuft, Mesangial.Area)) %>%
  ggplot(aes(name, value, fill = Genotype)) +
  geom_col(position = position_dodge())

創(chuàng)建于2023-06-1 5,代表為v2.0. 2

主站蜘蛛池模板: 美女啪啪一区二区三区| 男人的天堂亚洲一区二区三区 | 精品一区二区三区在线观看l | 日韩一区二区三区电影在线观看| 一区在线免费观看| 国产乱人伦精品一区二区| 国精品无码一区二区三区在线蜜臀| 尤物精品视频一区二区三区 | 色精品一区二区三区| 日本一区二区三区不卡视频| 亚洲视频在线一区| 亚洲色精品aⅴ一区区三区| 亚洲AV无码一区二区三区在线观看 | 亚洲综合无码一区二区三区| 精品乱人伦一区二区三区| 亚洲国产高清在线一区二区三区| 在线精品一区二区三区电影| 亚洲一区二区无码偷拍| 99无码人妻一区二区三区免费| 国产a∨精品一区二区三区不卡| 日本一区二区三区在线网| 国产成人AV区一区二区三| 久久精品免费一区二区喷潮| 亚洲欧美日韩一区二区三区 | 亚洲国产综合无码一区二区二三区| 无码一区二区三区AV免费| 亚洲午夜精品一区二区麻豆| 亚洲乱码av中文一区二区| 亚洲AV无码国产精品永久一区| 一区二区三区视频在线播放| 麻豆视频一区二区三区| 果冻传媒一区二区天美传媒| 国产日韩AV免费无码一区二区三区| 一区二区三区高清视频在线观看| 国产一区二区三区樱花动漫| 一区二区免费电影| 无码少妇一区二区| 精品一区二区三区| 女人和拘做受全程看视频日本综合a一区二区视频| 在线观看精品一区| 精品少妇一区二区三区在线|