Purrr फ़ंक्शन और वैक्टर, जैसे मानचित्र () और कम () के साथ काम करने के लिए उपकरण का एक पूर्ण और सुसंगत सेट प्रदान करके आर के कार्यात्मक प्रोग्रामिंग टूलकिट को बढ़ाता है।
दिया गया:
library(tidyverse)
df <- data.frame(est = c(1.36, -0.03),
std = c(0.16, 0.18))
df
# est std
# 1 1.36 0.16
# 2 -0.03 0.18
मैं निम्नलिखित करना चाहता हूं:
exp(df[1, 1] + qnorm(c( 0.025, 0.5, 0.975))*df[1, 2])
# [1] 2.847398 3.896193 5.331295
exp(df[2, 1] + qnorm(c( 0.0....
निम्नलिखित df के लिए, यदि type में से कोई भी NA या NA_real_ के साथ नहीं है, तो निम्न कोड काम करता है:
library(gt)
library(gtExtras)
df <- structure(
list(
type = c("v1", "v2", 'v3'),
`2017-06` = c(300, 100, NA_real_),
`2017-07` = c(10, 900, NA_real_), `2017-08` = c(500, NA, NA_real_),....
नमस्ते मुझे group_by और nest का उपयोग करने के बाद एक समस्या का सामना करना पड़ा जब मैं परिणाम को पूर्ण डेटाफ़्रेम में बदलने का प्रयास करता हूं। विशेष रूप से, डेटा कुछ इस तरह दिखता है जैसे कॉलम character और list दोनों के प्रारूप में हैं।
library(tibble)
example = as_tibble(data.frame(dim_1 = c('a','b....
मैं लूप के लिए सूची से प्रत्येक तत्व को लूप कर सकता हूं:
data <- list("Hello", c("USA", "Red", "100"), c("India", "Blue", "76"))
for(i in data){
print(i)}
नतीजा:
[1] "Hello"
[1] "USA" "Red" "100"
[1] "India" "Blue" "76"
मुझे आश्चर्य है कि apply आधार R या purrr पैकेज में अन्य कार्यों से उपयोग कर....
मैं सूचियों पर कार्यों का उपयोग करने के लिए नया हूँ।
मैंने मूल्यों के एक सेट पर सांख्यिकीय परीक्षण करने के लिए एक फ़ंक्शन लिखा था। मैं फ़ंक्शन में एक सूची के रूप में मानों के सेट को इनपुट के रूप में आयात करता हूं और प्रोग्राम चलाता हूं। हालाँकि मैंने देखा कि आउटपुट फ़ाइल में समान आउटपुट कॉलम नाम ह....
मेरे पास एक डेटाफ्रेम है जिसमें समूहीकरण चर शामिल है। group_split का उपयोग करके डेटाफ्रेम की एक सूची बनाने के लिए तुच्छ लेकिन फिर मैं चारों ओर मुड़ना चाहता हूं और एक प्लॉट बनाना चाहता हूं जो इन 5 को एक समय में फ़ेसटिंग का उपयोग करके समूहित करता है। पुनरुत्पादकता के लिए मैं mtcars का उपयोग करूंगा
l....
मैं एक नेस्टेड डेटाफ्रेम (टिब्बल) को सुंदर प्रिंट करना चाहता हूं।
यहाँ एक न्यूनतम उदाहरण है
df <- tribble(~name,~data,
"first",tibble(type=c("a","b","c"),value=c(2,4,5)),
"second",tibble(type=c("a","b"),value=c(3,1)))
ताकि:
name data
<chr> <list>
1 first <tibble [3 × 2....
मुझे लूपिंग का उपयोग करके फ़ाइलों को सहेजने में समस्या है। मैंने पहली बार एक फंक्शन लिखा था जो बिना लूप के अच्छा काम करता है। हालांकि, यह हमेशा लूप के साथ विफल रहता है। क्या कोई मुझे कारण बता सकता है?
a<-c(1,2,3)
b<-c(4,5,6)
c<-c(7,8,9)
data<-data.frame(a,b,c)
path<-list('path1/', 'path2/')
tes....
मैं काफी सरल कुछ कर रहा हूँ। विशिष्ट अवधियों के लिए प्रारंभ तिथियों और समाप्ति तिथियों के डेटाफ्रेम को देखते हुए, मैं सप्ताह के आधार पर प्रत्येक अवधि के लिए एक पूर्ण अनुक्रम का विस्तार/निर्माण करना चाहता हूं (प्रत्येक पंक्ति के कारक के साथ), फिर इसे एक बड़े डेटाफ्रेम में आउटपुट करें।
उदाहरण के लिए:....
डेटा फ्रेम "पार्स" की पंक्तियाँ लॉजिस्टिक कर्व्स को परिभाषित करने वाले दो मापदंडों को रखती हैं:
library(ggplot2)
library(purrr)
pars <- data.frame(
diff = c(-1.5, 2.5),
disc = c(1.2, 2.5)
)
इन दो वक्रों को इस तरह से मैप () और ggplot () के साथ प्लॉट किया जा सकता है।
icc <- function(x) map(
1:....
19 जिंदा 2022, 17:31
मैं चयन सहायकों जैसे starts_with() के संयोजन में dplyr के filter() का उपयोग करना चाहता हूं।
वर्तमान पोस्ट इस उत्तर पर अनुवर्ती है, लेकिन थोड़ी अधिक परिष्कृत डेटा संरचना में जिसमें सूची शामिल है -कॉलम और map2() {purrr} पैकेज से।
निम्नलिखित my_mtcars डेटा फ़्रेम पर विचार करें:
library(tibble)
my_mtc....
मेरे पास सूची में बहुत सारे सबडेटासेट हैं और इसलिए प्रत्येक डेटासेट को सूचीबद्ध करना बोझिल और बहुत थकाऊ होगा। क्या lapply या purrr का उपयोग करके इसे प्राप्त करने का कोई तरीका है? अग्रिम में धन्यवाद।
library(dplyr)
mydata <- list(data.frame(
A = c(1, 2, 3),
B = c("Test1", "Test2", "Test3")),
....
उदाहरण के लिए इस लिंक से संपादित कोड, मैं इसे एक अनुकूलित फ़ंक्शन में बदलने की आशा करता हूं और आसानी से कर सकता हूं इसे समान स्वरूपों वाले नए डेटाफ़्रेम और तर्कों पर लागू करें:
library(ggplot2)
library(patchwork)
# Create ggplot2 scatterplot
p1 <- ggplot(iris,
aes(x =....
मैं इस फ़ंक्शन को exec() के साथ चलाने का प्रयास कर रहा हूं। मेरे पास एक वर्कअराउंड है जो rlang::expr और फिर !! का उपयोग करता है, लेकिन इसका मतलब है कि एक उद्धृत चर के बजाय एक अभिव्यक्ति को तर्क के रूप में स्वीकार करने के लिए फ़ंक्शन को बदलना। उद्धृत तर्कों को पारित करने की क्षमता खोए बिना इस फ़ंक्....
मेरे पास परिस्थितियों का डेटाफ्रेम है जो समय आधारित हैं। मैं डेटा के एक सेट में समय की तुलना सही स्थिति देने के लिए शर्तों में प्रारंभ और समाप्ति समय से करना चाहता हूं। मैं ऐसा करने के लिए किसी फ़ंक्शन को मैप करने के लिए purrr का उपयोग करने के बारे में सोच रहा था, लेकिन मैं फंस गया हूँ।
डेटा और एक....
मैं निम्नलिखित समस्या के बारे में अपना सिर नहीं उठा सकता।
फॉलोइंग डेटा मानते हुए:
library(tidyverse)
df <- tibble(source = c("A", "A", "B", "B", "B", "C"),
value = c(5, 10, NA, NA, NA, 20),
add = c(1, 1, 1, 2, 3, 4))
मैं क्या करना चाहता हूं: उन सभी मामलों के लिए जहां s....
14 जिंदा 2022, 15:08
मुझे लगता है कि for-loop की तुलना में tidyverse में ऐसा करने का शायद एक बेहतर तरीका है। एक मानक tibble/dataframe से प्रारंभ करें, और एक सूची बनाएं जहां सूची तत्वों का नाम एक कॉलम (group_by?) के अद्वितीय मान हैं और सूची तत्व दूसरे कॉलम के सभी मान हैं।
my_data <- tibble(list_names = c("Ford", "Chev....
डेटा फ़्रेम की एक बड़ी सूची में शामिल होने के लिए purrr::reduce() का उपयोग करते समय डिफ़ॉल्ट कॉलम को .x, .y, .x.x, .y.y आदि के साथ नाम देना है।
क्या संख्यात्मक अंत के साथ कॉलम नाम प्राप्त करने के लिए इस व्यवहार को बदलना संभव है? जैसे
.1, .2, .3, .4?
# test data
data.frame(id= rep(letters[1:5],3,20)....
नीचे दिए गए कोड के साथ, मैं officer पैकेज का उपयोग करके गतिशील रूप से कई पीपीटी रिपोर्ट तैयार कर सकता हूं:
url_list <- c(
'http://www.csrc.gov.cn/csrc/c101921/c1758587/1758587/files/2022%E5%B9%B4%E7%AC%AC1%E5%91%A8((2022-01-04%E8%87%B32022-01-07)%E6%9C%9F%E8%B4%A7%E5%B8%82%E5%9C%BA%E4%B8%BB%E8%A6%....
12 जिंदा 2022, 21:18
मैं एक कुछ फ़ंक्शन लागू करना चाहता हूं (अर्थात् AddLags नीचे से) डेटाफ़्रेम के समूहों में। इसे प्राप्त करने के लिए, मैं लगातार दो map_dfr (एक से दूसरे में पाइपिंग) का उपयोग करने की कोशिश कर रहा हूं, ताकि संबंधित फ़िल्टर लागू हो सकें। अंतिम चरण के लिए, मैं कस्टम फ़ंक्शन (पहले उल्लेख किया गया) लागू ....
मैं एक शर्त के आधार पर purrr::map पुनरावृत्ति से थोड़ा अलग परिणाम देने का प्रयास कर रहा हूं। मान लें कि मेरे पास यह कोड प्लॉट तैयार कर रहा है और उन्हें डेटाफ्रेम में संग्रहीत कर रहा है:
library(tidyverse)
#> -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
#> v ggplo....
मेरे पास एक डेटा सेट है जिसे मैंने एक महीने में फ़िल्टर किया था। मेरे पास मैट्रिक्स (l1) की एक सूची भी है जो डेटा फ्रेम (int1) की सूची के समान लंबाई है। सूची में मैट्रिक्स के अलग-अलग आयाम हैं (जैसे, 3x3, 2x2)।
डेटा और सूची सेट करना:
library(lubridate)
library(tidyverse)
library(purrr)
date <- rep....
नीचे दिए गए कोड का उपयोग करके, मैं mtcars डेटासेट के सबसेट के लिए एक पीपीटी रिपोर्ट जेनरेट करने में सक्षम हूं:
library(ggplot2)
library(tidyverse)
library(patchwork)
library(officer)
library(officedown)
library(glue)
small <- mtcars %>%
filter(carb %in% c(1, 2))
p1 <- ggplot(mpg, wt, data = sma....
मैं एक साथ कई अलग-अलग कार्यों को एक डेटाफ्रेम पर लागू करना चाहता हूं, फिर परिणामों को डेटाफ्रेम की सूची में डाल देना चाहता हूं। इसलिए, उदाहरण के लिए, मैं एक कॉलम द्वारा arrange कर सकता था, फिर आउटपुट को एक नए डेटाफ़्रेम के रूप में सहेज सकता था। या मैं कुछ डेटा filter कर सकता था, फिर एक और नए डेटाफ....
मेरे पास टाइमसीरीज डेटा का एक डेटाफ्रेम है, df1, कि मुझे आर में से कई 'विंडो' निकालने की जरूरत है। विंडोज़ के लिए स्टार्ट- और एंड-पॉइंट्स मुझे एक अलग डेटाफ्रेम के दो कॉलम में हैं, df2. प्रारंभ- और अंत-बिंदुओं के मान आवश्यक विंडो की पंक्ति संख्या के अनुरूप हैं।
नीचे दिए गए उदाहरण में मैं समाधान के ....