细胞周期的柱形图解析

Posted 2023-05-09

大家应该见过细胞周期的柱形图表示，不理解的是处于S期的图为什么分成4等份或5等份，请高手帮忙解惑。谢谢了。
资料上说减数分裂无细胞周期，这么说的话1楼的朋友能这么解释吗？

是不是说的是细，偶，粗，双，终，五个时期啊。
1、细线期；染色体呈细线状，沿各染色体的纵向可见染色粒。细线状的染色体，特别细长，互相缠绕成线团样形态，在光学显微镜下，既看不出染色体复制后的双重结构，也无法数清楚染色体的数目。有的标本可见核仁。

2、偶线期，同源染色体进行联会（配对时期），联会是在染色体侧面接触并准确地发生在染色体的各相同位点上。联会配对涉及染色体全长，形成联会复合体。一般仍观察不到双重结构。

3、粗线期，同源染色体完成配对，成为二价染色体。由于染色体不断缩短变粗，而使染色体出现了粗大的形态。

4、双线期，配对了的同源染色体开始分离的时期。好的标本，可以看到染色单体的二重性，即二价的染色体是由四条染色单体构成的。同源染色体之间虽然已出现分离，在染色体的长轴上仍有一点或几点互相结合着，从而使同源染色体又不能完全分离。这种结合部位叫交叉（chiasma）。这种交叉随着时间的推进向末端移动。这种移动叫做端化。

5、终变期，染色体进一步缩短，交叉部位移动到染色体末端。

额，我不知道对于补充的问题怎么回答，就在这说一下，那五个时期就是发生在减数第一次分裂的前期。这么说吧，减数第一次分裂的前期根据染色体的变化状态分为五个时期，就是细线期，偶线期，粗线期，双线期，还有终变期（也叫浓缩期）。减数分裂和有丝分裂不同，减数分裂产生的是配子，要么死亡，要么精卵结合形成受精卵，当然没有周期了。 参考技术A 你这图中是表示"细胞数目"和"每个细胞中DNA的含量相对值"关系图,这个是不能说明细胞周期的S期的，许多学生在做题的时候都是忽略了这一点而丢分的。
也就是说：B表示细胞中的DNA含量是2;D表示细胞中DNA含量为4，说明DNA进行了复制。而C表示是DNA正在复制，所以可以分为4或5等份，只是测量的问题。

ggplot2中的柱形图使用分类变量作为填充

【中文标题】ggplot2中的柱形图使用分类变量作为填充

【英文标题】：Column chart in ggplot2 using a categorical variable as fill

【发布时间】：2019-06-24 04:58:54

【问题描述】：

所以我正在分析一个包含学生（已删除）、他们的班级年份（2020、2021、2022）以及他们是否接受采访的数据框。我想以图形方式显示每个班级每年申请和实际获得面试的学生人数。

我尝试对此进行编码，但在很多尝试中都收到错误，这告诉我我可能没有正确处理这个问题。

数据：

app <- structure(list(Interview = c("Yes", "Yes", "Yes", "Yes", "Yes", 
"No", "Yes", "No", "No", "Yes", "No", "Yes", "No", "No", "Yes", 
"Yes", "Yes", "Yes", "Yes", "No"), Year = c(2021, 2021, 2020, 
2022, 2022, 2022, 2020, 2021, 2021, 2021, 2020, 2022, 2022, 2021, 
2022, 2020, 2022, 2022, 2020, 2020)), row.names = c(NA, -20L), class = 
c("tbl_df", 
"tbl", "data.frame"))

然后我使用 dplyr 和 ggplot 对数据进行分组并相应地绘制 图书馆（dplyr） 图书馆（ggplot2） 图书馆（gg主题） 库（readxl）

 year_table <- app %>% 
   group_by(Year) %>% 
   summarize(number = n()) %>% 
   mutate(pct=number/sum(number)) %>% 
   arrange(desc(pct))
 year_table

 #interview candidates
 year_table_int <- app_int %>% 
   group_by(Year) %>% 
   summarize(number = n()) %>% 
   mutate(pct=number/sum(number)) %>% 
   arrange(desc(pct))
 year_table

 ggplot(data = year_table, mapping = aes(x = Year, y = number)) +
   geom_col(fill= "darkslategray3") + theme_economist() +
   ggtitle("Distribution of Applicants based on Class Year") +
   geom_text(data=year_table, aes(label=paste0(round(pct*100,1),"%"),
                                  y=number), size=4, vjust = -.5) +
   labs(y = "Number of Applicants")


 #Attempt 2
 a<- 1:200
 ggplot(year_table, aes(x=factor(Year), y=number)) +
   geom_bar(position="dodge", stat="identity",aes(fill=factor(Interview))) +
   coord_cartesian(ylim=c(50, 150)) + scale_y_continuous(breaks=a[a%%10==0]) +
   xlab("Year") + ylab("Number of Applicants") + 
 scale_fill_discrete(name="Interview?") +
   theme(axis.text.x = element_text(size=14))

在这一点上我很困惑，但我已经包含了一个关于我希望它看起来如何的视觉效果。也许使用 geom_bar 可能会更好？？？不确定，无论我想在 x 轴上显示班级年份，在原因上显示数字（或计数），以及表示申请人总数和接受面试的人数（面试 = 是）的躲避条。

https://imgur.com/a/Lan6HiN

【参考方案1】：

我相信你可以自己设计情节。

ggplot(app, aes(x = Interview, fill = Interview)) +
    geom_bar() + 
    theme_economist() + 
    facet_wrap(~Year) +
    theme(legend.position="none")

【讨论】：

我试图显示仅在获得“是”票的人旁边堆叠的申请人总数。您的代码仅将其分解为是和否。

已编辑，答案，现在呢？