Как извлечь нижнюю и верхнюю границу в числовом формате из строки доверительного интервала?
Предположим, что вектор включает некоторые доверительные интервалы, как показано ниже.
confint <- c("[0.741 ; 2.233]", "[263.917 ; 402.154]", "[12.788 ; 17.975]", "[0.680 ; 2.450]", "[0.650 ; 1.827]", "[0.719 ; 2.190]")
Я хочу иметь два новых вектора, включая нижние пределы в числовом формате, как
lower <- c(0.741, 263.917, 12.788, 0.680, 0.650 , 0.719)
и другие, включая верхние пределы в числовом формате, например
upper <- c(2.233, 402.154, 17.975, 2.450, 1.827, 2.190)
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
12
0
901
6
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 6
Вы можете использовать функции из библиотеки стрингер.
Вы можете разделить строки с помощью str_split() по определенному символу (; в вашем случае), затем удалить символ с str_remove() ([ и ] в вашем случае), и вы получите то, что хотите.
str_remove(str_split_fixed(confint, ";", n = 2)[,1], '\\[') %>% as.numeric()
# [1] 0.741 263.917 12.788 0.680 0.650 0.719
Ответ принят как подходящий
Базовое решение R
lower = as.numeric(sub(".*?(\\d+\\.\\d+).*", "\\1", confint))
upper = as.numeric(sub(".*\\b(\\d+\\.\\d+).*", "\\1", confint))
lower
[1] 0.741 263.917 12.788 0.680 0.650 0.719
upper
[1] 2.233 402.154 17.975 2.450 1.827 2.190
Другая base R возможность может быть:
sapply(strsplit(confint, " ; ", fixed = TRUE), function(x) gsub("[^0-9.-]+", "\\1", x) [1])
sapply(strsplit(confint, " ; ", fixed = TRUE), function(x) gsub("[^0-9.-]+", "\\1", x) [2])
[1] "0.741" "263.917" "12.788" "0.680" "0.650" "0.719"
[1] "2.233" "402.154" "17.975" "2.450" "1.827" "2.190"
Если вам это нужно как числовой вектор:
sapply(strsplit(confint, " ; ", fixed = TRUE), function(x) as.numeric(gsub("[^0-9.-]+", "\\1", x)) [1])
sapply(strsplit(confint, " ; ", fixed = TRUE), function(x) as.numeric(gsub("[^0-9.-]+", "\\1", x)) [2])
Я понял, что для получения точного вывода требуется дополнительная настройка, но я думаю, что это был аналогичный подход. +1 вам.
—
27.05.2019 15:21
mypattern <- '\\[(\\d+\\.\\d+) ; (\\d+\\.\\d+)\\]'
as.numeric(gsub(mypattern, '\\1', confint))
as.numeric(gsub(mypattern, '\\2', confint))
Тем временем я придумал другое base R решение
lower <- as.numeric(sub(".]*", "", sub(";.*", "", confint)))
upper <- as.numeric(sub("].*", "", sub(".*;", "", confint)))
Спасибо вам всем!
tidyverse решение:
library(dplyr)
library(tidyr)
df = data.frame(confint)
df = df %>%
mutate(confint = gsub("(\\[|\\])","",confint)) %>%
separate(confint,c("lower","upper"),";",convert=T)
Другие вопросы по теме
Вставьте строки, соответствующие каждому месяцу в годовых данных
Как я могу транспонировать часть фрейма данных?
Разница между двумя линиями geom_smooth()
R: Перебор двух переменных с помощью RDCOMClient
Как построить несколько строк в R
Dplyr sample_n по одной переменной через другую
Неправильное положение стертых полос ошибок, когда aes(group = ...), но не aes(fill/shape = ...)
SaveGIF() возвращает пустой GIF
Как я могу построить границу решения для задачи SVM с несколькими метками, используя курсор в R
Нужна матрица с количеством пересекающихся значений
Похожие вопросы
R: Рассчитать ежемесячную доходность по группам на основе дневных цен
Попытка построить гистограмму с накоплением из процентов
Как добавить в таблицу данных столбец, который показывает сумму значений нескольких других столбцов?
Как получить таблицу пропорций на основе информации из двух разных таблиц в R
Как добавить значение среднего числа в график скрипки, используя базу R
Ggplot - получить диапазоны осей ТЕКУЩЕГО графика
Преобразование кадра данных
Как искать значения из кода и создавать новые столбцы на его основе
Как получить доступ к Olap-Cubes из R в Linux
Разве R не знает, что время круглое? Как найти ближайшее время дня к заданному времени
@Ronak Shah Я обновил свой пост в соответствии с некоторыми вашими идеями. Спасибо :)