ggplot(tsne_result,aes(tsn1,tsn2,color=optdigits$Portfolio.Exits))+geom_point()报错Error in ggplot(tsne_result, aes(tsn1, tsn2, color = optdigits$Portfolio.Exits)) : object 'tsne_result' not found

这个错误表示 R 无法找到名为 "tsne_result" 的对象。可能是因为你没有加载包含 "tsne_result" 数据框的 R 包，或者你没有在代码中创建名为 "tsne_result" 的对象。

请确保已经加载了正确的包，或者在代码中创建名为 "tsne_result" 的对象。例如，可以尝试使用以下代码来创建一个名为 "tsne_result" 的数据框：

tsne_result <- data.frame(tsn1 = c(1, 2, 3), tsn2 = c(4, 5, 6), color = c("red", "blue", "green"))

然后，你可以使用以下代码来绘制散点图：

ggplot(tsne_result, aes(tsn1, tsn2, color = color)) + geom_point()

请注意，这里的 "color" 列指定了颜色变量，而不是 "optdigits$Portfolio.Exits"。如果你需要使用 "optdigits$Portfolio.Exits" 列来指定颜色变量，请确保该列在 "tsne_result" 数据框中存在。