散点图R中的文本标签

Question

以下是代码。

<?php
$rates['desc']['score'] = 4.0;
$rates['service']['score'] = 4.0;
$rates['shipping']['score'] = 4.0;
$rates['desc']['score'] = floor((($rates['desc']['score'] - 3.9) * 5) * 2) / 2;
$rates['service']['score'] = floor((($rates['service']['score'] - 3.9) * 5) * 2) / 2;
$rates['shipping']['score'] = floor((($rates['shipping']['score'] - 3.9) * 5) * 2) / 2;
$average = floor((($rates['desc']['score'] * 0.5) + ($rates['service']['score'] * 0.2) + ($rates['shipping']['score'] * 0.3)) * 2) / 2;
?>

我想为它添加标签，如下图所示，

我尝试了几种选择......但它是在其他选项之上编写的。

stripchart(Age~Smoke, data = survey_clean_data , pch=16 , col = "blue", method = "jitter" ,main = "AGE VS SMOKE",na.rm = T)

数据：图书馆（MASS）附加（调查）

Answer 1

您的代码存在一些问题。主要的是你发送text()四个标签（means的内容），但是一些y坐标等于数据点的数量，因为你发送它{{1} }。 R试图均衡这些不均匀的向量，导致过度绘图。

相反，您可能会这样做（数据是人为的，因为您没有提供任何数据）：

survey_clean_data

结果：

Answer 2

由jdobres给出的答案工作得很好。以下是另一个解决方案。

将ylim=c(0.8,4.2)参数添加到散点图中。您可以将这些范围从c（1,4）调整到c（0.8,4.2）。后一个为我工作。

stripchart(Age~Smoke, data = survey_clean_data , pch=16 , col = 634, method = "jitter" ,main = "AGE VS SMOKE",na.rm = T,ylim=c(0.8,4.2))

使用以下行，您可以调整文本的垂直高度。 例如：+0.1，-0.1等

text(50,c(1:4)+0.1,means)