如何在 R 中创建像下面在 Excel 中一样的散点图 (参见图片和我使用 R 的try )

install.packages("tidyverse")
library(tidyverse)
fnames = c(1, 2, 3)
g1 = c(119, 118, 157)
g2 = c(176, 157, 144)
    
hr_data_class = tibble(Minutes = fnames,Group_1 = g1,Group_2 = g2)

print(hr_data_class)

ggplot(hr_data_class, aes(x=fnames,, y=g1 + g2, color=cyl, shape=cyl)) + geom_point(shape=6, color= "#154734") + labs(x="Time (Minutes)",y="Heart Rate (BPM)")

ggplot(hr_data_class, aes(x=g1,, y=g2, color=cyl, shape=cyl)) + geom_point(shape=6, color= "#154734") + labs(x="Time (Minutes)",y="Heart Rate (BPM)")

plot(fnames,g1,col='red',pch=19,cex=3,xlab='X1',ylab='Y1',main='hello world')

plot(fnames,g2,col='red',pch=19,cex=3,xlab='Time (Minutes)',ylab='Heart Rate (BPM)',main='Class Heart Rate Data')

library(ggplot2)
library(tidyr)

hr_data_class_long <- hr_data_class |>
  pivot_longer(-Minutes, names_to = "group", values_to = "value")

ggplot(hr_data_class_long, aes(Minutes, value, color = group)) +
  geom_point() +
  scale_color_manual(values = c("red", "blue")) +
  labs(x = "Time (Minutes)", y = "Heart Rate (BPM)", color = NULL) +
  theme(legend.position = "bottom")

R相关问答推荐

在通过最大似然估计将ODE模型与数据匹配时，为什么要匹配实际参数的转换值？

如何在RMarkdown LaTex PDF输出中包含英语和阿拉伯语？

二维样条，严格以一个参数递增

从所有项的 struct 相同的两级列表中，将该第二级中的所有同名项绑定在一起

以更少间隔的较小表中的聚合离散频率表

如何同时从多个列表中获取名字？

在R gggplot2中是否有一种方法将绘图轴转换成连续的 colored颜色 尺度？

从一个列表的框架中移除列表包装器

如何将R中数据帧中的任何Nas替换为最后4个值

按多列统计频次

优化从每个面的栅格中提取值

`-`是否也用于数据帧，有时使用引用调用？

如何使投篮在R中保持一致

有没有办法将勾选/审查标记添加到R中的累积关联图中？

以R表示的NaN值的IS.NA状态

在不带max()的data.table中按组查找最后一个元素

动态统计函数在ShinyApp内部更改

为什么R列名称忽略具有指定名称的向量，而只关注索引？

从字符串列中的向量中查找第一个匹配的单词

基于已有ID列创建唯一ID