INFLUENCIA DE FACTORES ECONÓMICOS Y CULTURALES EN EL ÉXITO DE NEGOCIACIONES INTERNACIONALES

# Instalación y carga de librerías necesarias
install.packages(c("tidyverse", "ggplot2", "dplyr", "readr", "readxl"))

## Installing packages into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4'
## (as 'lib' is unspecified)

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.0.4

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(ggplot2)
library(dplyr)
library(readr)
library(readxl)

# Cargar datos desde un archivo de Excel
datos <- read_excel ("Base_EDA_Negocios.xlsx") 
print(colnames(datos)) 

## [1] "ID_Empresa"                   "PIB_del_país"                
## [3] "Indice_de_Libertad Económica" "Diferencias Culturales"      
## [5] "Inflación"                    "Éxito_en_la negociación"

cat("Tabla de frecuencia para Éxito en la negociación")

## Tabla de frecuencia para Éxito en la negociación

table(datos$`Éxito en la negociación`)

## Warning: Unknown or uninitialised column: `Éxito en la negociación`.

## < table of extent 0 >

cat("Tabla de frecuencia para Inflación")

## Tabla de frecuencia para Inflación

table(datos$Inflación)

## 
## 1.2 1.5 1.7 1.8 1.9   2 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9   3 3.1 3.2 3.3 3.4 
##   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1 
## 3.5 3.6 3.7 3.8 3.9   4 4.1 4.2 4.4 4.5 4.8 4.9   5 5.1 5.3 5.5 5.6 5.7 5.8 5.9 
##   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1 
##   6 6.1 6.2 6.3 6.5 6.6 6.8   7 7.2 7.8 
##   1   1   1   1   1   1   1   1   1   1

ggtitle("Diagrama Circular de Éxito en la negociación")

## $title
## [1] "Diagrama Circular de Éxito en la negociación"
## 
## attr(,"class")
## [1] "labels"

count <- c(20, 30)
pie(count)

pie(count, labels = count)

labels= c("0", "1")

``` r
ggplot(datos, aes(x = Inflación)) +
  geom_histogram(binwidth = 1, fill = "blue", color = "black", alpha = 0.7) +
  geom_freqpoly(binwidth = 1, color = "red") +
  ggtitle("Histograma de Inflación")

cat("El histograma representa la distribución de la inflación en la muestra.") 

## El histograma representa la distribución de la inflación en la muestra.

ggplot(datos, aes(x = factor(datos$`Diferencias Culturales`))) +
  geom_bar(fill = "green") +
  ggtitle("Diagrama de barras para Diferencias Culturales") 

## Warning: Use of `` datos$`Diferencias Culturales` `` is discouraged.
## ℹ Use `Diferencias Culturales` instead.

cat("Media del PIB", mean(datos$`PIB_del_país`, na.rm = TRUE))

## Media del PIB 23944

cat("Mediana del PIB", median(datos$`PIB_del_país`, na.rm = TRUE))

## Mediana del PIB 24450

cat("Moda de Diferencias Culturales", names(sort(table(datos$`Diferencias_Culturales`), decreasing = TRUE)[1]))

## Warning: Unknown or uninitialised column: `Diferencias_Culturales`.

## Moda de Diferencias Culturales

cat("Recomendaciones para mejorar el éxito en negociaciones internacionales:")

## Recomendaciones para mejorar el éxito en negociaciones internacionales:

cat("1. Priorizar negociaciones en países con menor inflación para mejorar estabilidad.")

## 1. Priorizar negociaciones en países con menor inflación para mejorar estabilidad.

cat("2. Considerar el índice de libertad económica para identificar mercados favorables.")

## 2. Considerar el índice de libertad económica para identificar mercados favorables.

cat("3. Adaptar estrategias según diferencias culturales para mejorar la comunicación y éxito.")

## 3. Adaptar estrategias según diferencias culturales para mejorar la comunicación y éxito.