Análisis exploratorio de datos
María Bolívar y Paula López
2025-02-14
INFLUENCIA DE FACTORES ECONÓMICAS Y CULTURALES EN EL ÉXITO DE NEGOCIACIONES INTERNACIONALES
Este taller tiene como objetivo analizar la relación entre factores económicos, culturales y su impacto en el éxito de las negociaciones internacionales. Se explorará cómo aspectos como la inflación, el PIB, el índice de libertad económica y diferencias culturales pueden afectar el desempeño en negociaciones internacionales.
1.¿Cuál es la población objetivo? La población objetivo son las empresas que realicen negociaciones internacionales.
2.¿Existe una muestra? ¿Cuál es? La muestra corresponde a las 50 empresas multinacionales que han realizado negociaciones en diferentes regiones del mundo.
3.Menciones un parámetro y un estadístico en este estudio, si es posible. Un parámetro puede ser el promedio global del éxito de las empresas en las negociaciones. Mientras que un estadístico puede ser el promedio de éxito en las negociaciones de las 50 empresas seleccionadas en la muestra.
4.Clasifique cada una de las variables de acuerdo con su naturaleza y nivel de medición
Importamos la base de datos
library(knitr)
library(kableExtra)La base de datos recopilada consta de 50 filas y 5 variables, las cuales son:
colnames(df)## NULLEn primer lugar analizamos la variable PIB del país
tabla_variables <- data.frame(
Variable = c("PIB DEL PAIS", "INDICE DE LIBERTAD ECONOMICA", "DIFERENCIAS CUTURALES BAJO MEDIO ALTO ", "INFLACION", "EXITO EN LA NEGOCIACION"),
Naturaleza_Nivel_Medicion = c(
"Cuantitativa - Continua ",
"Cuantitativa - Continua ",
"Cualitativa - Nominal ",
"Cuantitativa - Continua ",
"Cuanlitativa - Nominal "))
kable(tabla_variables, format = "html", caption = "Naturaleza y Nivel de Medición de las Variables") %>%
kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"))| Variable | Naturaleza_Nivel_Medicion |
|---|---|
| PIB DEL PAIS | Cuantitativa - Continua |
| INDICE DE LIBERTAD ECONOMICA | Cuantitativa - Continua |
| DIFERENCIAS CUTURALES BAJO MEDIO ALTO | Cualitativa - Nominal |
| INFLACION | Cuantitativa - Continua |
| EXITO EN LA NEGOCIACION | Cuanlitativa - Nominal |
library(readxl)
df <- read_excel("Base_EDA_Negocios.xlsx")
df## # A tibble: 50 × 6
## ID_Empresa PIB_del_país `Indice_de_Libertad Económica` Diferencias Cultural…¹
## <dbl> <dbl> <dbl> <chr>
## 1 1 23500 78.4 Medio
## 2 2 18400 65.2 Alto
## 3 3 30200 80.1 Bajo
## 4 4 12300 55.4 Alto
## 5 5 25600 72.5 Medio
## 6 6 21800 70.3 Bajo
## 7 7 19700 62.4 Alto
## 8 8 28500 82.1 Medio
## 9 9 14900 57.8 Alto
## 10 10 26900 75 Bajo
## # ℹ 40 more rows
## # ℹ abbreviated name: ¹`Diferencias Culturales`
## # ℹ 2 more variables: Inflación <dbl>, `Éxito_en_la negociación` <dbl>library(questionr)
Tabla_exito <- questionr::freq(df$`Éxito_en_la negociación`, cum = TRUE, sort = "dec", total = TRUE)
knitr::kable(Tabla_exito)| n | % | val% | %cum | val%cum | |
|---|---|---|---|---|---|
| 1 | 30 | 60 | 60 | 60 | 60 |
| 0 | 20 | 40 | 40 | 100 | 100 |
| Total | 50 | 100 | 100 | 100 | 100 |
PIB_DEL_PAIS <- c(23500,18400,30200,12300,25600,21800,19700,28500,14900,26900,17300,32500,15600,22700,20900,29800,13500,24900,27400,16800,31200,18900,20400,28900,25000,26000,31000,18500,32000,27000,19500,22500,30000,1780,28500,24000,31500,19800,25000,27500,18000,26000,27500,24000,25500,32000,19500,31000,22500)
knitr::kable(head(PIB_DEL_PAIS))| x |
|---|
| 23500 |
| 18400 |
| 30200 |
| 12300 |
| 25600 |
| 21800 |
n_sturges = 1 + log(length(PIB_DEL_PAIS))/log(2)
n_sturgesc = ceiling(n_sturges)
n_sturgesf = floor(n_sturges)
n_clases = 0
if (n_sturgesc%%2 == 0) {
n_clases = n_sturgesf
} else {
n_clases = n_sturgesc
}
R = max(PIB_DEL_PAIS) - min(PIB_DEL_PAIS)
w = ceiling(R/n_clases)
bins <- seq(min(PIB_DEL_PAIS), max(PIB_DEL_PAIS) + w, by = w)
bins## [1] 1780 6169 10558 14947 19336 23725 28114 32503PIB_DEL_PAIS <- cut(PIB_DEL_PAIS, bins)
Freq_table <- transform(table(PIB_DEL_PAIS), Rel_Freq=prop.table(Freq), Cum_Freq=cumsum(Freq))
knitr::kable(Freq_table)| PIB_DEL_PAIS | Freq | Rel_Freq | Cum_Freq |
|---|---|---|---|
| (1.78e+03,6.17e+03] | 0 | 0.0000000 | 0 |
| (6.17e+03,1.06e+04] | 0 | 0.0000000 | 0 |
| (1.06e+04,1.49e+04] | 3 | 0.0625000 | 3 |
| (1.49e+04,1.93e+04] | 7 | 0.1458333 | 10 |
| (1.93e+04,2.37e+04] | 11 | 0.2291667 | 21 |
| (2.37e+04,2.81e+04] | 14 | 0.2916667 | 35 |
| (2.81e+04,3.25e+04] | 13 | 0.2708333 | 48 |
Analizamos la relación entre PIB del país e Inflacion
cor(df$PIB_del_país, df$Inflación)## [1] -0.8076311Analizandolo graficamente por medio de un diagrama de dispersión
library(ggplot2)
ggplot(df, aes(x = df$PIB_del_país, y = df$Inflación)) +
geom_point(color = "blue") + # Agregar puntos de dispersión
labs(title = "Diagrama de Dispersión con ggplot2",
x = "Eje X",
y = "Eje Y") +
theme_minimal() ## Warning: Use of `df$PIB_del_país` is discouraged.
## ℹ Use `PIB_del_país` instead.## Warning: Use of `df$Inflación` is discouraged.
## ℹ Use `Inflación` instead.
Basado en lo resultados del análisis, consideramos que las mejores estrategias para mejorar el éxito de las negociaciones internacionales son que las empresas negocien en países económicamente estables, donde las diferencias culturales sean medias o bajas, y cuyos indices de libertad económica sean altos. De forma que, los datos muestran que las empresas de países con PIB más alto y menor inflación tienen más éxito en las negociaciones. Así mismo, el reconocer y respetar las diferencias culturales les da a las empresas mayor probabilidad de éxito; especialmente si negocian en países donde las diferencias no son altas. Por último, las empresss deben buscar oportunidad en países con altos índices de libertad económica, ya que estos cuentan con un clima más favorable para los negocios y en consecuencia aumentan las probabilidades de éxito.