NS
outlier.shape=NA не помогло.
Size: a a a
2021 February 12
Н
Nikolai Saperkin
Добрый вечер! Работаю с gglpot: ggplot(mydata,aes(x=округ,y=корь_титр, colour=округ))+geom_point(alpha=0.3, position="jitter")+geom_boxplot(alpha=0, colour="black")/ Всё работает, но мешает выброс (4161,6) в ПФО. Помогите, пожалуйста, не учитывать эту резко выскакивающую величину. Мои попытки пока безуспешны... Спасибо!!!
А не проще из датасета убрать его?
AB
Декартово произведение двух таблиц нужно создать. И задача сведется к построчной операции
Спасибо, но что-то я не совсем понял... Пойду учить линейную алгебру :(
DS
Nikolai Saperkin
Добрый вечер! Работаю с gglpot: ggplot(mydata,aes(x=округ,y=корь_титр, colour=округ))+geom_point(alpha=0.3, position="jitter")+geom_boxplot(alpha=0, colour="black")/ Всё работает, но мешает выброс (4161,6) в ПФО. Помогите, пожалуйста, не учитывать эту резко выскакивающую величину. Мои попытки пока безуспешны... Спасибо!!!
mydata %>% filter(округ > x) ?
AB
library(geosphere)
distm(A,B)
distm(A,B)
Спасибо, посмотрю, что на вход подавать надо. Но хотел бы без сторонних библиотек справиться
NS
А не проще из датасета убрать его?
делал так))
NS
mydata %>% filter(округ > x) ?
Спасибо!
A
Anton Burtsev
Спасибо, но что-то я не совсем понял... Пойду учить линейную алгебру :(
Да там все проще, дам пример
PD
Anton Burtsev
Всем доброго дня. Помогите, пожалуйста, упростить код. Есть два дата фрейма одинаковой структуры: в каждом два столбца широта и долгота. Создаю матрицу расстояний всех точек одного дата фрейма до всех точек другого дата фрейма. Смог только через цикл. Есть ли возможность сделать прям вообще красиво?
d <- matrix(nrow = length(S[,1]), ncol = length(P[,1])) # создаем матрицу нужного размера
for(x in 1:length(P[,1])) d[,x] <- sqrt((P$lon[x]-S$lon)^2+(P$lat[x]-S$lat)^2) # заполняем матрицу расстояниями
d <- matrix(nrow = length(S[,1]), ncol = length(P[,1])) # создаем матрицу нужного размера
for(x in 1:length(P[,1])) d[,x] <- sqrt((P$lon[x]-S$lon)^2+(P$lat[x]-S$lat)^2) # заполняем матрицу расстояниями
если работаете с геоданными, можно присмотреться к пакету
задача выглядела бы так:
S = data.frame(lon = rnorm(100),
lat = rnorm(100))
P = data.frame(lon = rnorm(100),
lat = rnorm(100))
library(sf)
s_sf = sf::st_as_sf(S, coords = c(1,2), crs = 4326)
p_sf = sf::st_as_sf(P, coords = c(1,2), crs = 4326)
D = sf::st_distance(s_sf, p_sf)
sf - нужно вкатиться, но потом нормально.задача выглядела бы так:
S = data.frame(lon = rnorm(100),
lat = rnorm(100))
P = data.frame(lon = rnorm(100),
lat = rnorm(100))
library(sf)
s_sf = sf::st_as_sf(S, coords = c(1,2), crs = 4326)
p_sf = sf::st_as_sf(P, coords = c(1,2), crs = 4326)
D = sf::st_distance(s_sf, p_sf)
I
Anton Burtsev
Всем доброго дня. Помогите, пожалуйста, упростить код. Есть два дата фрейма одинаковой структуры: в каждом два столбца широта и долгота. Создаю матрицу расстояний всех точек одного дата фрейма до всех точек другого дата фрейма. Смог только через цикл. Есть ли возможность сделать прям вообще красиво?
d <- matrix(nrow = length(S[,1]), ncol = length(P[,1])) # создаем матрицу нужного размера
for(x in 1:length(P[,1])) d[,x] <- sqrt((P$lon[x]-S$lon)^2+(P$lat[x]-S$lat)^2) # заполняем матрицу расстояниями
d <- matrix(nrow = length(S[,1]), ncol = length(P[,1])) # создаем матрицу нужного размера
for(x in 1:length(P[,1])) d[,x] <- sqrt((P$lon[x]-S$lon)^2+(P$lat[x]-S$lat)^2) # заполняем матрицу расстояниями
Сджоинить 2 датафрейма через full_join, и колонку просчитать через distHaversine, както так:
mutate(dist = distHaversine(cbind(lon_x, lat_x), cbind(lon_y, lat_y)))
mutate(dist = distHaversine(cbind(lon_x, lat_x), cbind(lon_y, lat_y)))
A
Anton Burtsev
Спасибо, но что-то я не совсем понял... Пойду учить линейную алгебру :(
собственно, вот
library(data.table)
dt1 <- data.table(id1 = 1:3, lat1 = 1:3, long1 = 1:3, k = 1)
dt2 <- data.table(id2 = 4:6, lat2 = 4:6, long2 = 4:6, k = 1)
dt <- dt1[dt2, on = "k", allow.cartesian = TRUE][, k := NULL]
A
Это не full_join, а именно декартово произведение (cross join). И дальше уже можно `distHaversine()' применить
DK
Пакет есть, называется FFTrees
Интересный пакет, но несколько про другое
SM
С чего начать ?
SM
Я тока начинаю учить.
AS
Sultan Mogushkov
С чего начать ?
Попробуйте начать с вежливого приветствия.
IY
Попробуйте начать с вежливого приветствия.
Вечер в хату
AS
Dplyr в глаз или data.table раз?
SM
Попробуйте начать с вежливого приветствия.
😂 понял принял
SM
Так поможете ?