R - Построение сетки с каркасной решеткой - PullRequest
Новая
       60

R - Построение сетки с каркасной решеткой

0 голосов
/ 18 декабря 2018

Я пытаюсь нанести сетку на несколько точек в 3D, чтобы создать какой-то пейзаж.Но на самом деле у меня есть некоторые проблемы с функцией решетки каркаса.Функция не показывает все вершины.Я в любом случае не уверен, является ли функция каркасной модели лучшим способом сделать это?В основном я ищу функцию, которая отображает функцию ListPlot3D в Mathematica. 

library(lattice)

col1 <- c(1.02,1.00,1.02,1.01,1.00,1.00,1.00,1.01,1.00,0.99,1.01,0.98,0.99)
col2 <- c(1.00,0.99,1.00,1.01,0.98,0.99,1.00,1.01,1.02,0.99,1.00,1.01,1.00)
col3 <- c(0.98,0.99,0.99,0.99,1.00,1.00,1.00,1.00,1.00,1.01,1.01,1.01,1.02)

data <- data.frame(phen=col1,param1=col2,param2=col3)

wireframe(phen ~ param1 * param2,
          data=data,
          xlab="param1", 
          ylab="param2", 
          zlab="phen",shade = T,
          aspect = c(1, 0.2), 
          scales=list(arrows=FALSE))

Мой график затем пропускает следующие точки данных: 

p1 <- c(1.02,1.00,0.98)
p2 <- c(1.00,0.98,1.00)
p3 <- c(1.00,1.02,1.00)
p4 <- c(0.99,1.00,1.02)

Это точки из фрейма данных, которыеполучить не построены на графике с помощью каркасной функции.Мне не понятно, почему они не включены.

каркасный график с отсутствующими точками: красными точками обозначены данные, которые фактически существуют во фрейме данных, НО на графике нет

У меня все заканчиваетсяидей, что здесь происходит?

Спасибо за любые советы по этому поводу!

РЕДАКТИРОВАТЬ: добавлен сюжет

...