# Define the X values (Knee height in cm)
x <- c(57.7, 47.4, 43.5, 44.8, 55.2, 51.8)
# Define the Y values (Height in cm)
y <- c(192.1, 153.3, 146.4, 158.7, 169.2, 165.3)
# Create a scatter plot with knee height on the x-axis and height on the y-axis
plot(
x, y, # data to plot
xlab = "Knee height (cm)", # label for x-axis
ylab = "Height (cm)", # label for y-axis
main = "Height vs Knee Height (elderly men; cm)", # plot title
pch = 19 # point style (19 = solid circle)
)
# Add a light grid behind the plot for readability
grid()
# (Optional) Add a best-fit regression line through the points
# abline(lm(y ~ x), lwd = 2)