# #——load_packages eval = TRUE,回声= FALSE ----------------------------------- 库(BiocStyle)库(drawProteins)图书馆(ggplot2)图书馆(knitr) opts_chunk美元集(评论= NA, fig.align =“中心”。宽度=“100%”,dpi = 100) # #——load_NFkappaB_data fig.height = 10, fig.wide = TRUE ----------------------- # 加载数据5 NF-kappaB蛋白质数据(“five_rel_data”)马克斯(five_rel_data订单美元)#返回5 #使用extract_transcripts()来创建一个新的数据帧prot_data <——extract_transcripts (five_rel_data)马克斯(prot_data订单美元)#返回7 # #——check_chains fig.height = 10, fig.wide = TRUE ----------------------------- p1 < - draw_canvas (five_rel_data) p1 < - draw_chains (p1,five_rel_data) p1 < - p1 + ggtitle(“五链绘制”)p2 < - draw_canvas (prot_data) p2 < - draw_chains (p2, prot_data) p2 < - p2 + ggtitle(“七链绘制”)p1 p2 # #——draw_domains_and_phospho fig.height = 10, fig.wide = TRUE ----------------- p2 < - draw_domains p2 (p2, prot_data) <——draw_phospho (p2, prot_data,大小= 8)p2 # #——draw_canvas_and_chains fig.height = 8, fig.wide = TRUE -------------------- p2 < - draw_canvas prot_data p2 < - draw_chains (p2, prot_data填补=“lightsteelblue1”,大纲= "灰色"标签= c(“施敏原著”,“施敏原著”,“p100”,“p100”,“Rel B”,“:”、“p65 / Rel”,“p50”,“p52”),label_size = 5) p2 < - draw_phospho (p2, prot_data,大小= 8,填补=“红色”)p2 + theme_bw () ## ---- session_Info,回声= FALSE ------------------------------------------------- sessionInfo ()