标记等高线图并在R中显示真实值而不是密度

我试图在列表中创建数据的等高线图，而不是像大多数可用示例那样创建矩阵。我曾尝试在基本代码中填充conotur图，但遇到了诸如“未找到对象x”之类的问题。我是指使用ggplot2统计密度2D。虽然这产生了我在自定义它时遇到的问题后的绘图类型。如果您使用geom_density2d变量，有人知道如何用其值标记等高线吗？还有人知道如何让钥匙显示实际价值而不是外观吗？我感觉我使用了错误的函数来描述真实值，但不知道如何操作filled.contour代码来使用列表。 下面我给出了一个我的数据示例和我当前使用的代码。 提前感谢您提供的任何帮助。冬青树

数据集：

Grade <- structure(list(Eastings = c(156000L, 156010L, 156421L, 156450L, 156500L, 156700L, 158420L, 158646L, 158970L, 159050L, 159050L, 159130L, 159155L), Northings = c(143630, 143980, 147260, 145000, 146000, 142800, 146700, 145207, 147170, 145200, 144800, 147815, 145890), Zn = c(2, 8, 4, 0, 3, 0, 2, 7, 12, 0, 4, 19, 0)), .Names = c("Eastings", "Northings", "Zn"), row.names = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L), class = "data.frame")

---

Grade可能值得让您的示例在新的R会话中完全重现。如果
Grade道歉，我忘了更改Statsrep。我在这里给出的数据是一个经过编辑的数据集，因为用于绘制图的数据集属于一家尚未公布结果的公司。我已经包括了read.csv部分，以防这部分代码与调用列表或矩阵中的数据不同。我想也许你会更幸运地看到
？stat_contour
中的示例，尽管你的示例数据看起来太稀疏，无法直接估计轮廓。示例数据不是我真正的数据集。我大概有116分。我尝试过使用stat_contour，但总是出现以下错误：contourLines中的错误（x=sort（unique（data$x）），y=sort（unique（data$y）），：（list）对象无法强制键入“double”。我认为这是因为ggplot2等高线需要规则的网格，而我的地图坐标没有规则的间距。可能值得在新的R会话中使您的示例完全可复制。如果
等级抱歉，我忘了更改Statsrep。我在这里提供的数据是一个编辑过的数据集由于用于绘制曲线图的是一家尚未公布结果的公司。我加入了read.csv部分，以防这部分代码在列表或矩阵中调用数据时有所不同。我想也许您会更幸运地看到
？stat\u contour
中的示例，尽管您的示例数据似乎太过复杂稀疏以直接估计轮廓。示例数据不是我的真实数据集。我有大约116个点。我尝试使用stat_contour，但始终存在以下错误：轮廓线错误（x=排序（唯一（数据$x）），y=排序（唯一（数据$y）），：（列表）对象不能强制为“double”类型。我认为这是因为ggplot2等高线需要规则的网格，而我的地图坐标没有规则的间距。
library(ggplot2)
Grade <- read.csv(file="filename.csv", header=TRUE, sep=",")
ggplot(data=Grade, aes(x=Eastings, y=Northings, z=Zn)) +
stat_density2d(aes(fill=..level..), contour=TRUE, geom="polygon") +
geom_density2d(colour="red", size=0.2)