{"id":516,"date":"2023-09-14T09:41:11","date_gmt":"2023-09-14T09:41:11","guid":{"rendered":"https:\/\/yunshangtulv.com.cn\/?p=516"},"modified":"2023-09-14T09:41:11","modified_gmt":"2023-09-14T09:41:11","slug":"%e5%9f%ba%e7%a1%80%e5%9b%be%e7%89%87%e5%a4%8d%e7%8e%b0%ef%bc%9a%e5%88%86%e7%bb%84%e6%95%a3%e7%82%b9%e7%ae%b1%e7%ba%bf%e5%9b%be%e6%98%be%e8%91%97%e6%80%a7","status":"publish","type":"post","link":"https:\/\/yunshangtulv.com.cn\/?p=516","title":{"rendered":"\u57fa\u7840\u56fe\u7247\u590d\u73b0\uff1a\u5206\u7ec4\u6563\u70b9\u7bb1\u7ebf\u56fe+\u663e\u8457\u6027"},"content":{"rendered":"<p>\u4ee3\u7801\u4e3b\u8981\u5b8c\u6210\u7684\u529f\u80fd\u5982\u4e0b\uff1a<\/p>\n<ol>\n<li>\u8bfb\u53d6\u4e24\u4e2aCSV\u6587\u4ef6\uff08sh1.csv \u548c sh2.csv\uff09<a href=\"https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/sh2_modified.csv\">sh2_modified<\/a> <a href=\"https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/sh1_modified.csv\">sh1_modified<\/a>\u3002<\/li>\n<li>\u4f7f\u7528tidyr\u5305\u5c06\u5bbd\u6570\u636e\u8f6c\u6362\u4e3a\u957f\u6570\u636e\u3002<\/li>\n<li>\u589e\u52a0\u4e00\u4e2a\u5206\u7ec4\u5217\u3002<\/li>\n<li>\u5220\u9664\u5305\u542bNA\u7684\u884c\u3002<\/li>\n<li>\u5408\u5e76\u4e24\u4e2a\u6570\u636e\u96c6\u3002<\/li>\n<li>\u4f7f\u7528ggplot2\u548cggpubr\u7ed8\u5236\u7bb1\u7ebf\u56fe\uff0c\u5e76\u6dfb\u52a0\u663e\u8457\u6027\u6807\u8bb0\u3002<\/li>\n<\/ol>\n<p>&nbsp;<\/p>\n<pre class=\"corepress-code-pre\"><code># Set working directory (modify as needed)\r\n# setwd(\"D:\")\r\n\r\n# 1. \u8bfb\u53d6\u6570\u636e\r\nsh1 &lt;- read.csv(\"sh1_modified.csv\",header = T)\r\nsh2 &lt;- read.csv(\"sh2_modified.csv\",header = T)\r\n\r\n# 2. \u4f7f\u7528tidyr\u5305\u5c06\u5bbd\u6570\u636e\u8f6c\u6362\u4e3a\u957f\u6570\u636e\r\nlibrary(tidyr)\r\nsh1 &lt;- gather(sh1, gene, value, starts_with(\"geneA_\")) # Use starts_with for dynamic column selection\r\nsh1$group &lt;- \"sh1\"\r\nsh2 &lt;- gather(sh2, gene, value, starts_with(\"geneA_\"))\r\nsh2$group &lt;- \"sh2\"\r\n\r\n# 3. \u53bb\u9664NA\u7684\u884c\u5e76\u5408\u5e76\u6570\u636e\r\nsh1 &lt;- na.omit(sh1)\r\nsh2 &lt;- na.omit(sh2)\r\ndata &lt;- rbind(sh1, sh2)\r\n\r\n# 4. \u4f7f\u7528ggplot2\u548cggpubr\u7ed8\u5236\u7bb1\u7ebf\u56fe\uff0c\u5e76\u6dfb\u52a0\u663e\u8457\u6027\u6807\u8bb0\r\nlibrary(ggplot2)\r\nlibrary(ggpubr)\r\n\r\n# Basic Boxplot\r\nplot1 &lt;- ggplot(data, aes(fill=group, y=value, x=gene)) +\r\n  geom_boxplot(outlier.shape = NA) +\r\n  geom_jitter(size = 1, shape = 21, color=\"black\", stroke = 0.15, show.legend = FALSE, \r\n              position = position_jitterdodge(jitter.height=0.5, jitter.width = 0.1, dodge.width = 0.8)) +\r\n  labs(title = \"Genes\", y=\"Expression\", x = \"\") +\r\n  theme_bw() +\r\n  theme(plot.title = element_text(hjust = 0.5),\r\n        panel.background = element_blank(),\r\n        panel.grid.major = element_blank(),\r\n        panel.grid.minor = element_blank(),\r\n        axis.text.y = element_text(size = 12, color=\"black\")) +\r\n  scale_fill_manual(values = c('grey','#55A1B1'))\r\n\r\n# Boxplot with Significance\r\nplot2 &lt;- plot1 +\r\n  stat_compare_means(aes(group=group), method = \"t.test\", label=\"p.signif\")\r\n\r\n# Boxplot with Significance Annotations\r\nplot3 &lt;- plot1 +\r\n  geom_signif(annotations = c(\"ns\",\"ns\",\"ns\",\"*\",\"***\",\"ns\",\"ns\"),\r\n              y_position = c(95,120,115,115,95,70,100),\r\n              xmin = c(0.8,1.8,2.8,3.8,4.8,5.8,6.8),\r\n              xmax = c(1.2,2.2,3.2,4.2,5.2,6.2,7.2),\r\n              tip_length = c(0.01,0.01,0.01,0.01,0.01,0.01,0.01))\r\n\r\n# Save plots as PDF\r\nggsave(filename = \"plot1.pdf\", plot = plot1)\r\nggsave(filename = \"plot2.pdf\", plot = plot2)\r\nggsave(filename = \"plot3.pdf\", plot = plot3)\r\n<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p>\u56fe\u7247\u5c55\u793a\uff1a<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-1024x1018.png\" alt=\"\" width=\"1024\" height=\"1018\" class=\"alignnone size-large wp-image-517\" srcset=\"https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-1024x1018.png 1024w, https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-100x100.png 100w, https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-600x596.png 600w, https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-300x298.png 300w, https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-150x150.png 150w, https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629-768x763.png 768w, https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/09\/\u622a\u56fe_20230914173629.png 1184w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4ee3\u7801\u4e3b\u8981\u5b8c\u6210\u7684\u529f\u80fd\u5982\u4e0b\uff1a \u8bfb\u53d6\u4e24\u4e2aCSV\u6587\u4ef6\uff08sh1.csv \u548c sh2.csv\uff09sh2_modified s [&hellip;]<\/p>\n","protected":false},"author":111,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9],"tags":[],"class_list":["post-516","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/516","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/users\/111"}],"replies":[{"embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=516"}],"version-history":[{"count":0,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/516\/revisions"}],"wp:attachment":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=516"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=516"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=516"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}