рджреБрдирд┐рдпрд╛ рдХреЗ рд╡рд┐рднрд┐рдиреНрди рджреЗрд╢реЛрдВ рдХреЗ рд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд╡рд┐рдХрд╛рд╕ рдХреА рддреБрд▓рдирд╛

рджреБрдирд┐рдпрд╛ рдХреЗ рд╡рд┐рднрд┐рдиреНрди рджреЗрд╢реЛрдВ рдореЗрдВ рд╡рд┐рдЬреНрдЮрд╛рди рдХреЗ рд╡рд┐рдХрд╛рд╕ рдХреА рддреБрд▓рдирд╛ рдХреИрд╕реЗ рдХрд░реЗрдВ?

рдПрдХ рд╕рдВрдХреЗрддрдХ рдкреНрд░рдХрд╛рд╢рд┐рдд рд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╣реИред SCIMAGO рд╡реЗрдмрд╕рд╛рдЗрдЯ рдкрд░ рдЖрдк рджреЗрд╢ рдХреЗ рдкреНрд░рдХрд╛рд╢рдиреЛрдВ рдХреЗ рдЖрдБрдХрдбрд╝реЗ рдкрд╛ рд╕рдХрддреЗ рд╣реИрдВ, рдЬрд┐рд╕рдореЗрдВ рдХреБрд▓ рдкреНрд░рдХрд╛рд╢рд┐рдд рджрд╕реНрддрд╛рд╡реЗрдЬрд╝реЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛, рдЙрджреНрдзреГрдд рджрд╕реНрддрд╛рд╡реЗрдЬрд╝реЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ (рд▓реЗрдЦ, рд╕рдореАрдХреНрд╖рд╛рдПрдВ, рд╕рдореНрдореЗрд▓рди рд░рд┐рдкреЛрд░реНрдЯ) рдФрд░ рдЙрджреНрдзрд░рдгреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╢рд╛рдорд┐рд▓ рд╣реИред

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

рдкреНрд░реЛрдЬреЗрдХреНрдЯ рдХреЛрдб Github рдкрд░ рд╣реИред

рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк, рд╣рдо рдЬреАрдбреАрдкреА рдкрд░ рдбреЗрдЯрд╛ рдкреНрд░рд╛рдкреНрдд рдХрд░рддреЗ рд╣реИрдВ, рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдФрд░ рд╕реАрдПрд╕рд╡реА рдлрд╝рд╛рдЗрд▓ рдХреЗ рд░реВрдк рдореЗрдВ рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╕реЗ рдкрд╣рд▓реЗ 50 рджреЗрд╢реЛрдВ рдХреЗ рдЙрджреНрдзрд░рдгреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ред
рдЗрд╕ рдлрд╝рд╛рдЗрд▓ рдХреЛ рд╕рдВрд╕рд╛рдзрд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо R рд╡рд╛рддрд╛рд╡рд░рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВред рд╣рдо рдбреЗрдЯрд╛ рдХреЛ R рдореЗрдВ рд▓реЛрдб рдХрд░рддреЗ рд╣реИрдВ:

dataf = read.csv("test.csv", sep=";", header=F)
names(dataf) = c("country", "gdp", "articles", "citations")

рд╣рдо 1 рдмрд┐рд▓рд┐рдпрди рдбреЙрд▓рд░ рдЬреАрдбреАрдкреА (рдЬреАрдбреАрдкреА рдХреА рд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рдкреНрд░рдХреГрддрд┐ рдХрд╛ рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд╕рдВрдХреЗрддрдХ) рдкреНрд░рддрд┐ рд▓реЗрдЦ рдФрд░ рдЙрджреНрдзрд░рдгреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреА рдЧрдгрдирд╛ рдХрд░рддреЗ рд╣реИрдВред

dataf$articles_per_gdp = dataf$articles/dataf$gdp
dataf$citation_per_gdp = dataf$citations/dataf$gdp

рдбреЗрдЯрд╛ рдХреЛ рдПрдХ рдЕрд▓рдЧ рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рд░рдЦрд╛ рдЬрд╛рддрд╛ рд╣реИ рддрд╛рдХрд┐ рд▓реЗрдЦ рдХреА рдкрдардиреАрдпрддрд╛ рдЦрд╝рд░рд╛рдм рди рд╣реЛред
рддрд╛рд▓рд┐рдХрд╛ 1. рдкрд╣рд▓рд╛ рд╕рдиреНрдирд┐рдХрдЯрди ред

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

рдЖрдЗрдП рдЧреНрд░рд╛рдл рдкрд░ рдЬреАрдбреАрдкреА рдкрд░ рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдкрд░ рдирд┐рд░реНрднрд░рддрд╛ рдХреА рд╕рд╛рдЬрд┐рд╢ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░рддреЗ рд╣реИрдВред

plot(dataf$articles ~ dataf$gdp, lwd="3", xlab=", USD", ylab=", ")



рдИрдорд╛рдирджрд╛рд░реА рд╕реЗ рдирд╣реАрдВред рд╕рднреА рдмрд┐рдВрджреБ рдЪрд╛рд░реНрдЯ рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ рдХреЗрдВрджреНрд░рд┐рдд рд╣реИрдВред рдЪрд▓реЛ рд▓реЙрдЧрд░рд┐рджрдорд┐рдХ рдирд┐рд░реНрджреЗрд╢рд╛рдВрдХ рдореЗрдВ рдЧреНрд░рд╛рдл рдХреЛ рдкреНрд▓реЙрдЯ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░рддреЗ рд╣реИрдВред

plot(log(dataf$articles) ~ log(dataf$gdp), lwd="3", xlab="Log(GDP)", ylab="Log(Articles)")

abline(lm(log(dataf$articles) ~ log(dataf$gdp)), lwd=3, col="blue")



рдпрд╣ рдмреЗрд╣рддрд░ рд▓рдЧ рд░рд╣рд╛ рд╣реИред рдФрд░ рд╣рдо рдЬреАрдбреАрдкреА рдкрд░ рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреА рдирд┐рд░реНрднрд░рддрд╛ рдмрдирд╛рдиреЗ рдореЗрдВ рдХрд╛рдордпрд╛рдм рд░рд╣реЗред

summary(lm(log(dataf$articles) ~ log(dataf$gdp)))

рд╣рдореЗрдВ 0.74 рдХрд╛ рд╕рд╣рд╕рдВрдмрдВрдз рдорд┐рд▓рддрд╛ рд╣реИ, рдЬреЛ 50 рдЕрдВрдХреЛрдВ рдХреЗ рд▓рд┐рдП рдмрд╣реБрдд рдЕрдЪреНрдЫрд╛ рд╣реИред рд╣рдо рджреЗрд╢ рдХреЗ рд╕рдХрд▓ рдШрд░реЗрд▓реВ рдЙрддреНрдкрд╛рдж рдкрд░ рд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреА рднрд╡рд┐рд╖реНрдпрд╡рд╛рдгреА рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
рд▓реЗрдЦ = 140 * рдЬреАрдбреАрдкреА ^ 0.79

рдЕрдм рд╣рдо рджреЗрд╢ рдореЗрдВ рд╡рд┐рдЬреНрдЮрд╛рди рдХреЗ рд╡рд┐рдХрд╛рд╕ (PR1) рдХреЛ рдПрдХ рдкреИрд░рд╛рдореАрдЯрд░ рдХреЗ рд░реВрдк рдореЗрдВ рд▓реЗрдВрдЧреЗ, рдкреНрд░рдХрд╛рд╢рд┐рдд рд▓реЗрдЦреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХрд╛ рдЕрдиреБрдорд╛рди рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рд╕рдВрдЦреНрдпрд╛ (100 рд╕реЗ рдЧреБрдгрд╛)ред рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ, рд▓реЗрдЦреЛрдВ рдХрд╛ рдкреВрд░реНрд╡рд╛рдиреБрдорд╛рди рд╕рдВрдЦреНрдпрд╛ рдХрд┐рд╕реА рджрд┐рдП рдЧрдП рдЬреАрдбреАрдкреА рдХреЗ рд▓рд┐рдП рдФрд╕рдд рдореВрд▓реНрдп рд╣реИред рдпрджрд┐ рдкреАрдЖрд░ 100 рд╕реЗ рдЕрдзрд┐рдХ рд╣реИ, рддреЛ рджреЗрд╢ рдЖрд░реНрдерд┐рдХ рд╡рд┐рдХрд╛рд╕ рдореЗрдВ рд╕рдорд╛рди рджреЗрд╢реЛрдВ рдХреЗ рдмреАрдЪ рджреБрдирд┐рдпрд╛ рдХреЗ рдФрд╕рдд рд╕реЗ рдЕрдзрд┐рдХ рд╡рд┐рдЬреНрдЮрд╛рди рдкрд░ рдзреНрдпрд╛рди рджреЗрддрд╛ рд╣реИред рджреВрд╕рд░реЗ рдкреИрд░рд╛рдореАрдЯрд░ (PR2) рдХреЗ рд░реВрдк рдореЗрдВ рд╣рдо рдПрдХ рд╣реА рд╕рдВрдХреЗрддрдХ рд▓реЗрддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЙрджреНрдзрд░рдгреЛрдВ рдХреЗ рд▓рд┐рдП рдЧрдгрдирд╛ рдХреА рдЬрд╛рддреА рд╣реИред рддрд╛рд▓рд┐рдХрд╛ 2 рдореЗрдВ рдкрд░рд┐рдгрд╛рдоред

PR1 рдХреЗ рдЕрдиреБрд╕рд╛рд░, рд░реВрд╕ рдЕрдиреНрдп рдХрдореЛрдбрд┐рдЯреА рджреЗрд╢реЛрдВ рдореЗрдВ 41 рд╡реЗрдВ (54 рдЕрдВрдХ) рд░реИрдВрдХ рдкрд░ рд╣реИред PR2 рдХреЗ рдЕрдиреБрд╕рд╛рд░ (рд▓реЗрдЦреЛрдВ рдХреЗ рдЙрджреНрдзрд░рдг рд╕реЗ рд╕рдВрдмрдВрдзрд┐рдд) рдпрд╣ 46 рд╡реЗрдВ рд╕реНрдерд╛рди рдкрд░ рд╣реИред

Source: https://habr.com/ru/post/In185864/


All Articles