R中ggplot2时间-速度图问题：线条模糊、轴定位及可视化优化

Hey there! Let's tackle your ggplot2 visualization headaches one by one—here are targeted fixes and optimization tips tailored to your 4K display setup and plot goals:

Your blurry lines and tiny label issues stem from two main missteps: using an overly large fig.width (it’s measured in inches—95 inches is way too big, which shrinks all elements to micro-size) and not matching the DPI to your 4K monitor. Here’s the fix:

• Set reasonable chunk options: Use a realistic width, a balanced aspect ratio, and a DPI optimized for high-res displays. Replace your chunk header with:

  • fig.width=10: A standard wide format that avoids extreme scaling
  • fig.asp=0.3: A more natural aspect ratio than 0.15 (prevents overly flat plots)
  • dpi=300: Matches 4K display density to keep lines sharp without shrinking the plot

• Thicken your line: Add a size parameter to geom_line() to make it more visible on high-res screens:

  geom_line(size = 0.8)
  

To align the y-axis exactly with the x-axis zero point, adjust the expand parameter in scale_x_continuous() to remove default padding, and clean up the axis styling:

scale_x_continuous(
  name="Time (s)",
  limits=c(min(data$time),max(data$time)),
  breaks=seq(0,3000,500),
  expand = c(0, 0)  # Removes extra space on x-axis ends
)

If your time data doesn’t start at 0 and you still want the y-axis at x=0, add coord_cartesian(xlim = c(0, max(data$time)), clip = "off") to force the plot to start at 0 while keeping your data intact.

Instead of adjusting font sizes piecemeal, set a base text size in your theme to ensure all elements scale correctly with your plot dimensions:

theme(
  text = element_text(size = 12),  # Base size for all text
  axis.text = element_text(color="black"),
  axis.title = element_text(color="black"),
  axis.line = element_line(color="black"),  # Adds crisp axis lines
  panel.background = element_blank(),  # Removes default gray background
  panel.grid = element_blank()  # Optional: Removes cluttering grid lines
)

Putting it all together, here’s your revised plot code:

ggplot(data, aes(x = time, y = velocity)) +
  geom_line(size = 0.8) +
  scale_x_continuous(
    name="Time (s)",
    limits=c(min(data$time),max(data$time)),
    breaks=seq(0,3000,500),
    expand = c(0, 0)
  ) +
  scale_y_continuous(
    name="",
    limits=c(-1,max(data$velocity)),
    expand = c(0, 0.05)  # Small top padding to avoid cutting off lines
  ) +
  theme(
    text = element_text(size = 12),
    axis.text = element_text(color="black"),
    axis.title = element_text(color="black"),
    axis.line = element_line(color="black"),
    panel.background = element_blank(),
    panel.grid = element_blank()
  )

• For even smoother lines (great for dense time-series data), add lineend = "round" to geom_line(): geom_line(size = 0.8, lineend = "round")
• If you need to export the plot, use ggsave() with matching DPI and dimensions:

  ggsave("velocity_time_plot.png", dpi=300, width=10, height=3)
  

内容的提问来源于stack exchange，提问作者Arcanemath