{"id":455,"date":"2023-05-08T07:45:33","date_gmt":"2023-05-08T07:45:33","guid":{"rendered":"https:\/\/yunshangtulv.com.cn\/?p=455"},"modified":"2023-05-08T07:45:33","modified_gmt":"2023-05-08T07:45:33","slug":"sci%e5%9b%be%e7%89%87%e5%a4%8d%e7%8e%b0%ef%bc%9a%e5%a4%8d%e6%9d%82%e7%83%ad%e5%9b%be","status":"publish","type":"post","link":"https:\/\/yunshangtulv.com.cn\/?p=455","title":{"rendered":"SCI\u56fe\u7247\u590d\u73b0\uff1a\u590d\u6742\u70ed\u56fe"},"content":{"rendered":"<p><span>\u4ece\u5934\u5230\u5c3e\u7684\u5b8c\u6574\u4ee3\u7801\uff0c\u5305\u62ec\u751f\u6210\u793a\u4f8b\u6570\u636e\u3001\u5904\u7406\u6570\u636e\u3001\u7ed8\u5236\u70ed\u56fe\u53ca\u76f8\u5173\u6ce8\u91ca\u3001\u7ed8\u5236\u67f1\u72b6\u56fe\u4ee5\u53ca\u4fdd\u5b58\u4e3a PDF \u6587\u4ef6\uff1a\u6839\u636e\u81ea\u5df1\u6570\u636e\u8c03\u6574<\/span><\/p>\n<pre class=\"corepress-code-pre\"><code># \u751f\u6210\u6570\u636e\u77e9\u9635\r\nLU_matrix &lt;- matrix(runif(200, 0, 0.5), nrow = 10, ncol = 20)\r\nRD_matrix &lt;- matrix(runif(340, -0.5, 0), nrow = 17, ncol = 20)\r\nRU_matrix &lt;- matrix(runif(20, -0.5, 0), nrow = 10, ncol = 2)\r\nLD_matrix &lt;- matrix(runif(34, 0, 0.5), nrow = 17, ncol = 2)\r\n\r\ndata &lt;- rbind(cbind(LU_matrix, RU_matrix), cbind(RD_matrix, LD_matrix))\r\n\r\n# \u751f\u6210\u793a\u4f8b\u884c\u540d\u548c\u5217\u540d\r\nrownames(data) &lt;- paste(\"Gene\", seq(1, nrow(data)), sep = \"_\")\r\ncolnames(data) &lt;- paste(\"Sample\", seq(1, ncol(data)), sep = \"_\")\r\n\r\n# \u751f\u6210p\u503c\u77e9\u9635\u548cT_data\u77e9\u9635\r\np_data &lt;- matrix(runif(27 * 22, 0, 0.1), nrow = 27, ncol = 22)\r\nT_data &lt;- matrix(runif(27 * 22, 0, 0.1), nrow = 27, ncol = 22)\r\nT_data &lt;- T_data &gt; 0.05\r\n\r\n# \u663e\u793a\u524d\u51e0\u884c\u6570\u636e\r\nhead(data)\r\n\r\n# \u52a0\u8f7d\u6240\u9700\u5e93\r\nlibrary(ComplexHeatmap)\r\nlibrary(circlize)\r\nlibrary(ggplot2)\r\n\r\n# \u8bbe\u7f6e\u989c\u8272\r\ncol_fun &lt;- colorRamp2(c(-0.5, -0.1, 0.1, 0.5), c(\"#5296cc\", \"#cad5f9\", \"#fdedf6\", \"#f064af\"))\r\n\r\n# \u7ed8\u5236\u70ed\u56fe\u5e76\u4fdd\u5b58\u4e3aPDF\r\npdf(\"Heatmap.pdf\", height = 6, width = 7)\r\nHeatmap(data, \r\n        col = col_fun,\r\n        rect_gp = gpar(col = \"white\", lwd = 1),\r\n        column_dend_height = unit(2, \"cm\"),\r\n        row_dend_width = unit(2, \"cm\"),\r\n        row_names_gp = gpar(fontsize = 7, fontface = \"italic\", col = c(rep(\"#ff339f\", 10), rep(\"#5facee\", 17))),\r\n        column_names_gp = gpar(fontsize = 7),\r\n        cell_fun = function(j, i, x, y, width, height, fill) {\r\n          if (p_data[i, j] &lt; 0.01) {\r\n            grid.text(sprintf(\"*  \", data[i, j]), x, y, gp = gpar(fontsize = 8))\r\n          } else if (p_data[i, j] &lt; 0.05) {\r\n            grid.text(sprintf(\"+   \", data[i, j]), x, y, gp = gpar(fontsize = 6))\r\n          } else {\r\n            grid.text(sprintf(\"\", data[i, j]), x, y, gp = gpar(fontsize = 6))\r\n          }\r\n          if (T_data[i, j]) {\r\n            grid.text(sprintf(\"   #\", data[i, j]), x, y, gp = gpar(fontsize = 6))\r\n          } else {\r\n            grid.text(sprintf(\"\", data[i, j]), x, y, gp = gpar(fontsize = 6))\r\n          }\r\n        },\r\n        show_heatmap_legend = FALSE,\r\n        column_dend_reorder = FALSE\r\n)\r\n\r\n# \u56fe\u4f8b\u53c2\u6570\r\nlgd &lt;- Legend(col_fun = col_fun, \r\n              at = c(-0.5, 0, 0.5),\r\n              title = \"Spearman's correlation\",\r\n              legend_height = unit(2, \"cm\"),\r\n              title_position = \"topcenter\",\r\n              title_gp = gpar(fontsize = 8),\r\n              labels_gp = gpar(fontsize = 8),\r\n              direction = \"horizontal\",\r\n              grid_height = unit(4, \"mm\")\r\n)\r\n\r\n# \u7ed8\u5236\u56fe\u4f8b\r\ndraw(lgd, x = unit(0.9, \"npc\"), y = unit(0.95, \"npc\"))\r\n\r\ndev.off()\r\n\r\n# \u6dfb\u52a0\u67f1\u72b6\u56fe\r\nbar_data &lt;- as.data.frame(rowSums(data))\r\ncolnames(bar_data) &lt;- \"lncMSE\"\r\nbar_data$group &lt;- \"Pos\"\r\nbar_data$group[which(bar_data$lncMSE &lt; 0)] &lt;- \"Neg\"\r\n\r\nggplot(data = bar_data) +\r\n  geom_bar(aes(x = rev(1:27),\r\n               y = abs(lncMSE), fill = group), stat = \"identity\") +\r\n  scale_fill_manual(values = c(\"#ff339f\", \"#5facee\")) +\r\n  coord_flip() +\r\n  xlab(\"\") +\r\n  ylab(\"%lncMSE\") +\r\n  theme_classic() +\r\n  theme(legend.position = \"none\",\r\n        axis.ticks.y = element_blank(),\r\n        axis.text.y = element_blank(),\r\n        axis.line.y = element_blank()) +\r\n  scale_y_continuous(breaks = c(0:6))\r\n\r\nggsave(\"barplot.pdf\", height = 6, width = 2.5)\r\n<\/code><\/pre>\n<p><img decoding=\"async\" src=\"https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/05\/1683531833570.webp\" \/><\/p>\n<p><img decoding=\"async\" src=\"https:\/\/yunshangtulv.com.cn\/wp-content\/uploads\/2023\/05\/1683531868909.webp\" \/><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4ece\u5934\u5230\u5c3e\u7684\u5b8c\u6574\u4ee3\u7801\uff0c\u5305\u62ec\u751f\u6210\u793a\u4f8b\u6570\u636e\u3001\u5904\u7406\u6570\u636e\u3001\u7ed8\u5236\u70ed\u56fe\u53ca\u76f8\u5173\u6ce8\u91ca\u3001\u7ed8\u5236\u67f1\u72b6\u56fe\u4ee5\u53ca\u4fdd\u5b58\u4e3a PDF \u6587\u4ef6\uff1a\u6839\u636e\u81ea [&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-455","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/455","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=455"}],"version-history":[{"count":0,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/455\/revisions"}],"wp:attachment":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=455"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=455"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=455"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}