Chart 1

# Load required libraries
library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

data("USArrests")

# Extract values from the second column
assault_arrests <- USArrests[, 2]

# Create a data frame with state names and corresponding assault arrests
state_data <- data.frame(State = row.names(USArrests), AssaultArrests = assault_arrests)

# Create a colorful bivariate scatter chart using plotly
scatter_chart <- plot_ly(data = state_data, x = ~State, y = ~AssaultArrests, mode = "markers",
                         marker = list(color = ~AssaultArrests, colorscale = "Viridis"),
                         text = ~paste("State: ", State, "<br>Assault Arrests: ", AssaultArrests),
                         hoverinfo = "text")

# Set layout options to avoid overlap
layout_options <- list(
  title = "Bivariate Scatter Chart of Assault Arrests by State",
  xaxis = list(title = "State", showticklabels = FALSE),
  yaxis = list(title = "Assault Arrests"),
  showlegend = FALSE
)

# Display the chart
scatter_chart <- layout(scatter_chart, layout_options)
scatter_chart

## No trace type specified:
##   Based on info supplied, a 'bar' trace seems appropriate.
##   Read more about this trace type -> https://plotly.com/r/reference/#bar

## Warning: 'bar' objects don't have these attributes: 'mode'
## Valid attributes include:
## '_deprecated', 'alignmentgroup', 'base', 'basesrc', 'cliponaxis', 'constraintext', 'customdata', 'customdatasrc', 'dx', 'dy', 'error_x', 'error_y', 'hoverinfo', 'hoverinfosrc', 'hoverlabel', 'hovertemplate', 'hovertemplatesrc', 'hovertext', 'hovertextsrc', 'ids', 'idssrc', 'insidetextanchor', 'insidetextfont', 'legendgroup', 'legendgrouptitle', 'legendrank', 'marker', 'meta', 'metasrc', 'name', 'offset', 'offsetgroup', 'offsetsrc', 'opacity', 'orientation', 'outsidetextfont', 'selected', 'selectedpoints', 'showlegend', 'stream', 'text', 'textangle', 'textfont', 'textposition', 'textpositionsrc', 'textsrc', 'texttemplate', 'texttemplatesrc', 'transforms', 'type', 'uid', 'uirevision', 'unselected', 'visible', 'width', 'widthsrc', 'x', 'x0', 'xaxis', 'xcalendar', 'xhoverformat', 'xperiod', 'xperiod0', 'xperiodalignment', 'xsrc', 'y', 'y0', 'yaxis', 'ycalendar', 'yhoverformat', 'yperiod', 'yperiod0', 'yperiodalignment', 'ysrc', 'key', 'set', 'frame', 'transforms', '_isNestedKey', '_isSimpleKey', '_isGraticule', '_bbox'