Mixed Language

by Kuatrinnus Wijaya

This is an R Notebook with Mixed Programming Languages,

SQL

Table is in mysql server, a connection has been created (in previous chunk that is hidden)

select * from books

R

library(tidyverse)
ggplot(mydataframe) +
  aes(
    x = Cost,
    y = Retail,
    colour = Category,
    group = Category
  ) +
  geom_line(size = 0.5) +
  scale_color_brewer(palette = "Set1", direction = 1) +
  geom_point(shape = "circle", size = 4L) +

  theme_minimal()

newdf<- mydataframe |> mutate(Profit=Retail-Cost)

Python

reticulate::repl_python()
import matplotlib.pyplot as plt
import seaborn as sns
sns.set_theme(style="darkgrid")

a=sns.relplot(x="Cost", y="Profit", hue="Category", data=r.newdf)
plt.show()