рдореБрдЦреНрдп рд╕рд╛рдордЧреНрд░реА рдкрд░ рдЬрд╛рдПрдБ

R c рдлрд╝рдВрдХреНрд╢рди(): рд╡реЗрдХреНрдЯрд░ рдЖрд╕рд╛рди рддрд░реАрдХреЗ рд╕реЗ рдмрдирд╛рдПрдБ

R рдореЗрдВ c() рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдорд╛рдиреЛрдВ рдХреЛ рдХреБрд╢рд▓рддрд╛рдкреВрд░реНрд╡рдХ рд╡реЗрдХреНрдЯрд░ рдореЗрдВ рдЬреЛрдбрд╝рдирд╛ рд╕реАрдЦреЗрдВред
┬╖ 2 рдорд┐ре░ рдкрдврд╝реЗрдВ

AI рдХреЗ рд╕рд╛рде рдЦреЛрдЬреЗрдВ

R рдореЗрдВ c() рдлрд╝рдВрдХреНрд╢рди рд╡реЗрдХреНрдЯрд░ рдмрдирд╛рдиреЗ рдФрд░ рдЙрдиреНрд╣реЗрдВ рдЬреЛрдбрд╝рдиреЗ рдХрд╛ рд╕рдмрд╕реЗ рдЖрд╕рд╛рди рддрд░реАрдХрд╛ рд╣реИред рдпрд╣ рдЗрд╕ рдмрд╛рдд рдХрд╛ рдореБрдЦреНрдп рд╣рд┐рд╕реНрд╕рд╛ рд╣реИ рдХрд┐ R рдбреЗрдЯрд╛ рдХреЛ рдХреИрд╕реЗ рд╕рдВрднрд╛рд▓рддрд╛ рд╣реИ, рдФрд░ рдпрд╣ рд╣рд░ R рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЛ рдЖрдирд╛ рдЪрд╛рд╣рд┐рдПред

рдпрджрд┐ рдЖрдк R рдХреЗ рд╕рд╛рде рдЕрднреА рд╢реБрд░реБрдЖрдд рдХрд░ рд░рд╣реЗ рд╣реИрдВ, рддреЛ рдмреБрдирд┐рдпрд╛рджреА рдЪреАрдЬрд╝реЗрдВ рд╕реАрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рд╣рдорд╛рд░рд╛ Introduction to R Programming рдХреЛрд░реНрд╕ рдЬрд╝рд░реВрд░ рд▓реЗрдВтАФрдЗрд╕рдореЗрдВ рд╡реЗрдХреНрдЯрд░, рд▓рд┐рд╕реНрдЯ, рдбреЗрдЯрд╛ рдлрд╝реНрд░реЗрдо рдЖрджрд┐ рд╢рд╛рдорд┐рд▓ рд╣реИрдВред рдпрджрд┐ рдЖрдк рдПрдХ рд▓рд░реНрдирд┐рдВрдЧ рдкреНрд▓рд╛рди рдмрдирд╛рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рдореИрдВрдиреЗ R рдХреИрд╕реЗ рд╕реАрдЦреЗрдВ рдкрд░ рднреА рдПрдХ рд▓реЗрдЦ рд▓рд┐рдЦрд╛ рд╣реИред

(рдФрд░ рдпрджрд┐ рдЖрдк рд╡реЗрдХреНрдЯрд░ рдмрдирд╛рдиреЗ рдХреЗ рдХрдард┐рди рддрд░реАрдХреЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ curious рд╣реИрдВ, рдореИрдВрдиреЗ рдЕрдВрдд рдореЗрдВ рдПрдХ FAQ рдмрдирд╛рдпрд╛ рд╣реИред)

R рдореЗрдВ c() рдлрд╝рдВрдХреНрд╢рди рдХреНрдпрд╛ рд╣реИ?

R c() рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдкреНрд░рд▓реЗрдЦрди рдмрддрд╛рддрд╛ рд╣реИ рдХрд┐ c() рдорд╛рдиреЛрдВ рдХреЛ рдЬреЛрдбрд╝рдХрд░ рдПрдХ рд╡реЗрдХреНрдЯрд░ рдмрдирд╛рддрд╛ рд╣реИ (рддреЛ рдореЗрд░рд╛ рдорд╛рдирдирд╛ рд╣реИ рдХрд┐ "c" рдХрд╛ рдорддрд▓рдм "combine" рд╣реИ)ред рдпрджрд┐ рдпрд╣ рд╕реНрдкрд╖реНрдЯ рдирд╣реАрдВ рд╣реИ, рддреЛ рдореИрдВ рдиреАрдЪреЗ рджрд┐рдП рдЧрдП рдЙрджрд╛рд╣рд░рдгреЛрдВ рдореЗрдВ рджрд┐рдЦрд╛рдКрдБрдЧрд╛ рдХрд┐ рдпрд╣ рдХреИрд╕реЗ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИред┬а┬а

рдЖрдЧреЗ рдмрдврд╝рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ, рдЕрдзрд┐рдХ рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ рдХрд╣реВрдБ рддреЛ, c() рдлрд╝рдВрдХреНрд╢рди рдХрд┐рд╕реА рднреА рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рдЖрд░реНрдЧреНрдпреБрдореЗрдВрдЯ рд▓реЗрддрд╛ рд╣реИ рдФрд░ рдЙрди рд╕рднреА рдорд╛рдиреЛрдВ рдХреЛ рд╕рдореЗрдЯреЗ рд╣реБрдП рдПрдХ рд╡реЗрдХреНрдЯрд░ рд▓реМрдЯрд╛рддрд╛ рд╣реИред рдпрджрд┐ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдЕрд▓рдЧ-рдЕрд▓рдЧ рд╣реЛрдВ, рддреЛ рдпрд╣ рд╕реНрд╡рддрдГ рд╣реА рдорд╛рдиреЛрдВ рдХреЛ рдПрдХ рд╕рдорд╛рди (рд╕рдмрд╕реЗ рд▓рдЪреАрд▓реЗ) рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдореЗрдВ рдмрджрд▓ рджреЗрддрд╛ рд╣реИ, рдЬрд╣рд╛рдБ рдРрд╕рд╛ рдХрд░рдирд╛ рдЖрд╡рд╢реНрдпрдХ рд╣реЛрддрд╛ рд╣реИред

рдорд╛рдиреЛрдВ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП c() рдХрд╛ рдЙрдкрдпреЛрдЧ

рдкрд╣рд▓рд╛ рдЙрджрд╛рд╣рд░рдг: рдЖрдк рдЕрд▓рдЧ-рдЕрд▓рдЧ рдорд╛рдиреЛрдВ рдпрд╛ рд╡реЗрд░рд┐рдПрдмрд▓реНрд╕ рдХреЛ рдЬреЛрдбрд╝рдХрд░ c() рд╕реЗ рд╡реЗрдХреНрдЯрд░ рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВред рдЗрди рдЙрджрд╛рд╣рд░рдгреЛрдВ рд╕реЗ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ c() рдЕрд▓рдЧ-рдЕрд▓рдЧ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░реЛрдВ, рдЬреИрд╕реЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ, рдХреИрд░реЗрдХреНрдЯрд░, рдФрд░ рд▓реЙрдЬрд┐рдХрд▓, рдкрд░ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИред

numeric_vector <- c(10, 20, 30, 40) 
character_vector <- c("apple", "banana", "cherry") 
logical_vector <- c(TRUE, FALSE, TRUE)

рдореМрдЬреВрджрд╛ рд╡реЗрдХреНрдЯрд░реЛрдВ рдХреЛ c() рд╕реЗ рдЬреЛрдбрд╝рдирд╛

рдЖрдк c() рдХрд╛ рдЙрдкрдпреЛрдЧ рдореМрдЬреВрджрд╛ рд╡реЗрдХреНрдЯрд░реЛрдВ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП рднреА рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдпрд╣ рддрдм рдЙрдкрдпреЛрдЧреА рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдк рдХрдИ рдбреЗрдЯрд╛ рд╕реНрд░реЛрддреЛрдВ рдпрд╛ рдкрд░рд┐рдгрд╛рдореЛрдВ рдХреЛ рдорд░реНрдЬ рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВред

first_half <- c(1, 2, 3)
second_half <- c(4, 5, 6)
full_vector <- c(first_half, second_half)

рдирд╛рдорд┐рдд рдЕрд╡рдпрд╡реЛрдВ рдХреЗ рд╕рд╛рде c() рдХрд╛ рдЙрдкрдпреЛрдЧ

рдЖрдк c() рдХреЗ рдЬрд░рд┐рдП рд╡реЗрдХреНрдЯрд░ рдХреЗ рднреАрддрд░ рддрддреНрд╡реЛрдВ рдХреЛ рдирд╛рдо рдЕрд╕рд╛рдЗрди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдпрд╣ рдбреЗрдЯрд╛ рдХреЛ рд▓реЗрдмрд▓ рдХрд░рдиреЗ рдореЗрдВ рдЙрдкрдпреЛрдЧреА рд╣реИред

fruit_counts <- c(apple = 5, banana = 3, cherry = 7)

рдЕрд▓рдЧ-рдЕрд▓рдЧ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░реЛрдВ рдХреЗ рд╕рд╛рде c()

рдЬрдм рдЕрд▓рдЧ-рдЕрд▓рдЧ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░реЛрдВ рдХреЛ рдЬреЛрдбрд╝рд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ c() рд╕рднреА рддрддреНрд╡реЛрдВ рдХреЛ рд╕рдмрд╕реЗ рд▓рдЪреАрд▓реЗ рдкреНрд░рдХрд╛рд░ рдореЗрдВ рдмрджрд▓ рджреЗрддрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╕рдВрдЦреНрдпрд╛рдУрдВ рдФрд░ рдХреИрд░реЗрдХреНрдЯрд░ рдХреЛ рд╕рд╛рде рдЬреЛрдбрд╝рдиреЗ рдкрд░ рдкрд░рд┐рдгрд╛рдо рдПрдХ рдХреИрд░реЗрдХреНрдЯрд░ рд╡реЗрдХреНрдЯрд░ рд╣реЛрдЧрд╛ред рдРрд╕рд╛ рдЗрд╕рд▓рд┐рдП рдХреНрдпреЛрдВрдХрд┐ "two" рдХреЛ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдкреНрд░рдХрд╛рд░ рдХреЗ рд░реВрдк рдореЗрдВ рдирд╣реАрдВ рдкрдврд╝рд╛ рдЬрд╛ рд╕рдХрддрд╛, рдЬрдмрдХрд┐ "1" рдПрдХ рдХреИрд░реЗрдХреНрдЯрд░ рд╣реЛ рд╕рдХрддрд╛ рд╣реИред

mixed_vector <- c(1, "two", 3)

рдпрд╣рд╛рдБ рдкрд░рд┐рдгрд╛рдо рдПрдХ рдХреИрд░реЗрдХреНрдЯрд░ рд╡реЗрдХреНрдЯрд░ рд╣реЛрдЧрд╛: "1", "two", "3"ред

c() рдХреЗ рд╕рд╛рде рдПрдХ рдбреЗрдЯрд╛ рдлрд╝реНрд░реЗрдо рдмрдирд╛рдирд╛

рдЖрдк c() рдХрд╛ рдЙрдкрдпреЛрдЧ рдРрд╕реЗ рд╡реЗрдХреНрдЯрд░ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдЬреЛ рдбреЗрдЯрд╛ рдлрд╝реНрд░реЗрдо рдореЗрдВ рдЖрдкрдХреЗ рдХреЙрд▓рдо рдХреЗ рд░реВрдк рдореЗрдВ рдХрд╛рдо рдХрд░реЗрдВрдЧреЗред рдРрд╕рд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдореИрдВ рд╡реЗрдХреНрдЯрд░реЛрдВ рдХреЛ рд╕рд╛рде рд░рдЦрдиреЗ рд╣реЗрддреБ data.frame() рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рднреА рдЙрдкрдпреЛрдЧ рдХрд░ рд░рд╣рд╛ рд╣реВрдБред

customer_names <- c("Alice", "Bob", "Charlie")
purchase_totals <- c(120.50, 75.00, 99.99)
customer_data <- data.frame(name = customer_names, total = purchase_totals)

рдирд┐рд╖реНрдХрд░реНрд╖

рдЬреИрд╕рд╛ рдХрд┐ рдЖрдкрдиреЗ рджреЗрдЦрд╛, c() рдлрд╝рдВрдХреНрд╢рди R рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рдХрд╛ рдПрдХ рдЖрд╡рд╢реНрдпрдХ рд╣рд┐рд╕реНрд╕рд╛ рд╣реИред рдореИрдВрдиреЗ рдЙрджрд╛рд╣рд░рдгреЛрдВ рдореЗрдВ рджрд┐рдЦрд╛рдпрд╛ рдХрд┐ рдЖрдк рд╡реЗрдХреНрдЯрд░ рдмрдирд╛ рднреА рд╕рдХрддреЗ рд╣реИрдВ рдФрд░ рдЙрдиреНрд╣реЗрдВ рдЬреЛрдбрд╝ рднреА рд╕рдХрддреЗ рд╣реИрдВред

рдЕрдкрдиреА рдХреМрд╢рд▓ рдпрд╛рддреНрд░рд╛ рд╢реБрд░реВ рдХрд░рдиреЗ рдФрд░ рдЙрд╕реЗ рд▓рдЧрд╛рддрд╛рд░ рдЖрдЧреЗ рдмрдврд╝рд╛рдиреЗ рдХреЗ рд▓рд┐рдП рд╣рдорд╛рд░рд╛ Introduction to R Programming рдХреЛрд░реНрд╕ рд▓реЗрдВтАФрдпрд╣ рдПрдХ рд╕рдВрд░рдЪрд┐рдд рд▓рд░реНрдирд┐рдВрдЧ рдкрд╛рде рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИред

Josef Waples

рд▓реЗрдЦрдХ

Josef Waples

рдореИрдВ рдПрдХ рдбреЗрдЯрд╛ рд╕рд╛рдЗрдВрд╕ рд╕рдВрдкрд╛рджрдХ рд╣реВрдБ рдФрд░ рд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рдкрддреНрд░рд┐рдХрд╛рдУрдВ рдореЗрдВ рдкреНрд░рдХрд╛рд╢рд┐рдд рд╢реЛрдз рд▓реЗрдЦреЛрдВ рдореЗрдВ рдпреЛрдЧрджрд╛рди рджреЗ рдЪреБрдХрд╛/рдЪреБрдХреА рд╣реВрдБред рдореБрдЭреЗ рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ рд░реИрдЦрд┐рдХ рдмреАрдЬрдЧрдгрд┐рдд, рд╕рд╛рдВрдЦреНрдпрд┐рдХреА, R, рдФрд░ рдЗрд╕реА рддрд░рд╣ рдХреЗ рд╡рд┐рд╖рдпреЛрдВ рдореЗрдВ рд░реБрдЪрд┐ рд╣реИред

рдЕрдВрддрд┐рдо рдкреНрд░рд╢реНрди

рдЖрдкрдиреЗ рдХрд╣рд╛ c() рд╡реЗрдХреНрдЯрд░ рдмрдирд╛рдиреЗ рдХрд╛ рдЖрд╕рд╛рди рддрд░реАрдХрд╛ рд╣реИред рдХрдард┐рди рддрд░реАрдХрд╛ рдХреНрдпрд╛ рд╣реИ?

рд╣рд╛рд▓рд╛рдБрдХрд┐ c() рд╕рдмрд╕реЗ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдФрд░ рд╢реБрд░реБрдЖрддреА-рдЕрдиреБрдХреВрд▓ рддрд░реАрдХрд╛ рд╣реИ, R рдореЗрдВ рд╡реЗрдХреНрдЯрд░ рдмрдирд╛рдиреЗ рдХреЗ рдХреБрдЫ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рддрд░реАрдХреЗ рднреА рд╣реИрдВред рдпрд╣рд╛рдБ рдХреБрдЫ рдЙрджрд╛рд╣рд░рдг рд╣реИрдВ:

vector() рдФрд░ рдЗрдВрдбреЗрдХреНрд╕рд┐рдВрдЧ рд╕реЗ рдореИрдиреНрдпреБрдЕрд▓ рдЗрдирд┐рд╢рд┐рдпрд▓рд╛рдЗрдЬрд╝реЗрд╢рди┬а

рдЖрдк рдХрд┐рд╕реА рд╡рд┐рд╢реЗрд╖ рдкреНрд░рдХрд╛рд░ рдФрд░ рд▓рдВрдмрд╛рдИ рдХрд╛ рдПрдХ рдЦрд╛рд▓реА рд╡реЗрдХреНрдЯрд░ рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВ, рдлрд┐рд░ рдЙрд╕реЗ рдПрдХ-рдПрдХ рдХрд░рдХреЗ рднрд░ рд╕рдХрддреЗ рд╣реИрдВ:

x <- vector("numeric", 3) x[1] <- 1 x[2] <- 2 x[3] <- 3

рдпрд╣ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЕрдзрд┐рдХ рд╢рдмреНрджрд╛рдбрдВрдмрд░рдкреВрд░реНрдг рд╣реИ рдФрд░ рд╢реБрд░реБрдЖрддреА рд▓реЛрдЧреЛрдВ рдХреЗ рд▓рд┐рдП рдХрдо рд╕рд╣рдЬ рд╣реИред

рдмрд╛рд░-рдмрд╛рд░ append() рдХрд╛ рдЙрдкрдпреЛрдЧ┬а

рдЖрдк рдПрдХ рдЦрд╛рд▓реА рд╡реЗрдХреНрдЯрд░ рд╕реЗ рд╢реБрд░реВ рдХрд░рдХреЗ рдорд╛рди рдЬреЛрдбрд╝рддреЗ рдЬрд╛ рд╕рдХрддреЗ рд╣реИрдВ:

x <- c() x <- append(x, 1) x <- append(x, 2) x <- append(x, 3)

рдпрд╣ рдЕрдХреНрд╖рдо рд╣реИ рдФрд░ рдкрдврд╝рдиреЗ рдореЗрдВ рдХрдард┐рдиред

seq() рдпрд╛ rep() рдЬреИрд╕реА рдЕрдиреНрдп рдлрд╝рдВрдХреНрд╢рдВрд╕ рдХрд╛ рдЙрдкрдпреЛрдЧ

рдпреЗ рдлрд╝рдВрдХреНрд╢рдВрд╕ рд╡рд┐рд╢рд┐рд╖реНрдЯ рдкреИрдЯрд░реНрди рдЬрдирд░реЗрдЯ рдХрд░рддреА рд╣реИрдВ рдФрд░ рд╢рдХреНрддрд┐рд╢рд╛рд▓реА рд╣реИрдВтАФрдкрд░ рд╕рд╛рдзрд╛рд░рдг рд╡реЗрдХреНрдЯрд░реЛрдВ рдХреЗ рд▓рд┐рдП рдЬрд╝рд░реВрд░рдд рд╕реЗ рдЬрд╝реНрдпрд╛рджрд╛ рд╣реИрдВ:

x <- seq(1, 3) y <- rep(1:3, times = 1)

┬ардЕрдиреНрдп рд╕рдВрд░рдЪрдирд╛рдУрдВ рдХреЛ рдлреНрд▓реИрдЯрди рдХрд░рдирд╛┬а

рдЖрдк рдХрд┐рд╕реА рд╕реВрдЪреА рд╕реЗ рддрддреНрд╡ рдирд┐рдХрд╛рд▓рдХрд░ рдЙрд╕реЗ рд╡реЗрдХреНрдЯрд░ рдореЗрдВ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВ:

my_list <- list(1, 2, 3) x <- unlist(my_list)

рд╡рд┐рд╖рдп