r - 从单个图像中的单个数据帧绘制许多线图

Question

我有一个以下形式的数据框:

Frequency Distance Value
10        10       2
10        20       4
10        30       6
20        10       4
20        20       5
20        30       5
30        10       2
30        20       4
30        30       2

我想创建一个在 x 轴上具有 Distance 和在 y 轴上具有 Value 的绘图。我还想绘制多个图，每个频率一个。如下图所示:

如何获得这个结果？

这是我到目前为止所做的，通过阅读其他一些回复，但我只能绘制一行(我在创建 xymelt 变量时指定的一行:

# Load required libraries
require(ggplot2)
require(reshape2)

# Function for importing a file and remove useless columns
loadCSVFile <- function(f) {
  csv = read.csv(f, header = TRUE);
  # other code for removing useless columns
  return(csv);
}

# Load and concatenate all .csv files from current working dir
files = list.files(pattern="*.csv");
myfiles = do.call(rbind, lapply(files, loadCSVFile))

# Plot. Problem here. I'm trying to use split and melt.
out <- split( myfiles , f = myfiles$Frequency)
xymelt <- melt(out$`40`, id.vars = 'Distance')
ggplot(xymelt, aes(x = Dist, y = value, color = variable)) + theme_bw() + geom_line();

编辑:

dput(out) 示例:

structure(list(`20` = structure(list(Frequency = c(20L, 20L, 20L, 
20L), Distance = c(10L, 20L, 30L, 40L), Value = c(97.946, 111.042, 
119.437, 125.908)), .Names = c("Frequency", "Distance", "Value"), row.names = c(NA, 
4L), class = "data.frame"), `40` = structure(list(Frequency = c(40L, 
40L, 40L, 40L), Distance = c(10L, 20L, 30L, 40L), Value = c(97.937, 
111.058, 119.621, 126.318)), .Names = c("Frequency", "Distance", "Value"
), row.names = 5:8, class = "data.frame"), `60` = structure(list(
    Frequency = c(60L, 60L, 60L, 60L), Distance = c(10L, 20L, 30L, 
    40L), Value = c(97.9015, 111.045, 119.802, 126.765)), .Names = c("Frequency", 
"Distance", "Value"), row.names = 9:12, class = "data.frame")), .Names = c("20", 
"40", "60"))

Answer 1

使用您的第一个给定数据尝试一下

library(tidyverse)
read.table(text="Frequency Distance Value
10        10       2
           10        20       4
           10        30       6
           20        10       4
           20        20       5
           20        30       5
           30        10       2
           30        20       4
           30        30       2", header=T) %>% 
ggplot(aes(Distance, Value, color=factor(Frequency))) + 
   geom_line()

使用您可以尝试的dput示例

d %>% 
  bind_rows() %>%  
  ggplot(aes(Dist, RefAtt, color=factor(FreqMhz))) +
    geom_line()