谁会帮我弄个QQ情侣网名拽点的好看点的

Posted 2023-05-09

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了谁会帮我弄个QQ情侣网名拽点的好看点的相关的知识，希望对你有一定的参考价值。

急急急

在 QQ 图中标注数据点的子集

【中文标题】在 QQ 图中标注数据点的子集【英文标题】：Label subset of data points in QQ plot 【发布时间】：2022-01-04 15:17:51 【问题描述】：

我正在尝试生成一个 QQ 图，我想在其中标记各个点。

这是我的数据子集

dput(head(C_A,10))
structure(list(CONTROL_ASYMPTOMATIC = structure(c(3L, 4L, 1L, 
53L, 5L, 11L, 35L, 31L, 20L, 45L), .Label = c("Acidocella.facilis", 
"Cellulosimicrobium.cellulans", "Citrobacter.freundii", "Citrobacter.koseri", 
"Gallibacterium.anatis", "Mycobacterium.asiaticum", "Mycobacterium.avium", 
"Mycobacterium.cookii", "Mycobacterium.gastri", "Mycobacterium.gordonae", 
"Mycobacterium.hyorhinis", "Mycobacterium.intracellulare", "Mycobacterium.kansasii", 
"Mycobacterium.leprae", "Mycobacterium.malmoense", "Mycobacterium.marinum", 
"Mycobacterium.scrofulaceum", "Mycobacterium.simiae", "Mycobacterium.sp.", 
"Mycobacterium.szulgai", "Mycobacterium.tuberculosis", "Mycobacterium.ulcerans", 
"Mycobacterium.xenopi", "Mycobacteroides.chelonae", "Mycolicibacillus.trivialis", 
"Mycolicibacterium.aichiense", "Mycolicibacterium.aurum", "Mycolicibacterium.chitae", 
"Mycolicibacterium.chubuense", "Mycolicibacterium.diernhoferi", 
"Mycolicibacterium.fallax", "Mycolicibacterium.farcinogenes", 
"Mycolicibacterium.flavescens", "Mycolicibacterium.fortuitum", 
"Mycolicibacterium.gadium", "Mycolicibacterium.gilvum", "Mycolicibacterium.komossense", 
"Mycolicibacterium.neoaurum", "Mycolicibacterium.obuense", "Mycolicibacterium.phlei", 
"Mycolicibacterium.senegalense", "Mycolicibacterium.smegmatis", 
"Mycolicibacterium.sphagni", "Mycolicibacterium.thermoresistibile", 
"Mycolicibacterium.vaccae", "Mycoplasma.agalactiae", "Mycoplasma.capricolum", 
"Mycoplasma.hyorhinis", "Mycoplasma.neurolyticum", "Mycoplasma.pneumoniae", 
"Mycoplasma.salivarium", "Oerskovia.turbata", "Orientia.tsutsugamushi", 
"Streptosporangium.amethystogenes"), class = "factor"), p_value = c(7.75e-07, 
7.83e-07, 1.72e-06, 2.89e-05, 0.000133449, 0.000419124, 0.000422792, 
0.000452307, 0.000726928, 0.000914429)), row.names = c(NA, 10L
), class = "data.frame")

生成 QQ 图

我的代码

loc <- qqnorm(C_A$p_value, ylim = extendrange(C_A$p_value, f = 0.05))

text(loc[[1]], loc[[2]], C_A$CONTROL_ASYMPTOMATIC, pos = 3)

有什么方法可以改善标注，比如只标注那些最重要的点。

任何建议或帮助将不胜感激

【问题讨论】：

【参考方案1】：

添加文本时的子集：

#plot dots
loc <- qqnorm(C_A$p_value, ylim = extendrange(C_A$p_value, f = 0.05))

#get the index of significant points
#note: I am using 0.00001 as significant,
# amend this number as per your needs.
ix <- which(C_A$p_value < 0.00001)

#subset and add text
text(loc[[1]][ ix ], loc[[2]][ ix ], 
     C_A$CONTROL_ASYMPTOMATIC[ ix ], pos = 4, srt = 90)

【讨论】：

以上是关于谁会帮我弄个QQ情侣网名拽点的好看点的的主要内容，如果未能解决你的问题，请参考以下文章

有啥好听的英文情侣名

求情侣网名与 virgo相配

简约昵称二字稀少好听的二字ID不易撞名

QQ空间别人发的图片为啥显示自己的网名？怎么弄的

有谁帮我弄个重复按键VBS脚本

定制网名输入自己名字，定制网名输自己名字的