如何创建一个散点图来显示具有不同子组（性别）的 DV 的散点？

Question

我正在尝试用 x（游戏）和 y（M 和 F 的时间）创建一个散点图。在数据集（df5）中，分别记录男性（时间M）和女性（时间F）的时间，如图：

View(df5)
Game   Year     Time M    Time F
1      1948     10.30     11.90
2      1952     10.40     11.50
3      1956     10.50     11.50
4      1960     10.20     11.00
5      1964     10.00     11.40
6      1968      9.95     11.08
7      1972     10.14     11.07
8      1976     10.06     11.08
9      1980     10.25     11.06
10     1984      9.99     10.97
11     1988      9.92     10.54
12     1992      9.96     10.82
13     1996      9.84     10.94
14     2000      9.87     10.75
15     2004      9.85     10.93

如何创建一个散点图来显示两个 DV 的不同颜色的散点？

如果您对此有任何帮助，我将不胜感激:)

Answer 1

理想情况下，您应该在绘图之前以长格式获取数据：

library(ggplot2)

df5 %>%
  tidyr::pivot_longer(cols = starts_with('Time')) %>%
  ggplot() + aes(Year, value, color = name) + geom_point()

您也可以单独绘制它们：

ggplot(df5) + 
   geom_point(aes(Year, TimeM), color = 'red') + 
   geom_point(aes(Year, TimeF), color = 'blue')

数据

df5 <- structure(list(Game = 1:15, Year = c(1948L, 1952L, 1956L, 1960L, 
1964L, 1968L, 1972L, 1976L, 1980L, 1984L, 1988L, 1992L, 1996L, 
2000L, 2004L), TimeM = c(10.3, 10.4, 10.5, 10.2, 10, 9.95, 10.14, 
10.06, 10.25, 9.99, 9.92, 9.96, 9.84, 9.87, 9.85), TimeF = c(11.9, 
11.5, 11.5, 11, 11.4, 11.08, 11.07, 11.08, 11.06, 10.97, 10.54, 
10.82, 10.94, 10.75, 10.93)), class = "data.frame", row.names = c(NA, -15L))

Answer 2

使用 type="n".

在空 plot 的两列上的 sapply 中使用 points

with(dat, plot(Year, Time.M, type="n", ylim=range(dat[3:4]), 
               main="My Plot title", ylab="Time"))
Y <- c("Time.M", "Time.F")
sapply(seq(Y), function(y)  points(dat$Year, dat[[Y[y]]], pch=16, col=y + 1))
legend("topright", legend=c("Time M", "Time F"), pch=16, col=2:3)

如何创建一个散点图来显示具有不同子组（性别）的 DV 的散点？

How can I create ONE scatter plot that shows the scatter of a DV with different subgroups (Gender)?

r

scatter-plot