R-每个面板具有多条线的面板图

我需要创建一个面板线图，其中每个面板内有多条线，每个面板使用相同的x轴和y轴。我的数据集如下所示：

阿拉斯加420A
阿拉斯加640A
阿拉斯加880A
阿拉斯加12100A
佛蒙特州410A
佛蒙特州630A
佛蒙特州850A
佛蒙特州1260A
犹他州410A
犹他州620A
犹他州825A
犹他州12 45 A
阿拉斯加410B
阿拉斯加620B
阿拉斯加850b
阿拉斯加1280b
佛蒙特州430B
佛蒙特州650 B
佛蒙特州860B
佛蒙特州1270B
犹他州425B
犹他州645b
犹他州855b
犹他州12 65 B
阿拉斯加4 15摄氏度
阿拉斯加6 30摄氏度
阿拉斯加860摄氏度
阿拉斯加12 70摄氏度
佛蒙特州4 15摄氏度
佛蒙特州625C
佛蒙特州845摄氏度
佛蒙特州1280摄氏度
犹他州420C
犹他州6 35 C
犹他州8 40摄氏度
犹他州12 55摄氏度

读取数据的代码为：

library(ggplot2);
data = read.table("test_set.dat");
names(data) <- c("Place", "Variable", "Value", "Condition");
data$Place <- as.factor(data$Place);
data$Variable <- as.factor(data$Variable);
data$Value <- as.numeric(data$Value);
data$Condition <- as.factor(data$Condition);

库（ggplot2）；
数据=读取表格（“测试集数据”）；
names（data）I首先使用重塑包的melt函数将数据转换为长格式。然后，我按照您描述的方式绘制了数据，按条件分组，并将这些位置划分为多个方面

library(reshape)
data_gather <- melt(data)

ggplot(data=data_gather, aes(x=Variable, y=value, group=Condition, color=Condition)) 
 + geom_line() 
 + facet_wrap(~ Place, ncol = 3)

库（重塑）
数据收集谢谢！这正是我所需要的：-但问题：如何使用主题来更改图例和轴标题？似乎当我使用主题来改变轴时，它会使图例消失。请看下面这个关于图例的非常好的描述：