Εμφάνιση 1-8 από 8

Θέμα: R programming

  1. #1
    Εγγραφή
    26-09-2003
    Περιοχή
    Θεσσαλονικη
    Μηνύματα
    1.591
    Downloads
    9
    Uploads
    0
    Έχω κάποια δεδομένα σε ένα αρχείο. Κάνω read σε data.frame 2 συγκεκριμένες στήλες από
    το αρχείο, εκ των οποίων η μία παρουσιάζει το χρόνο σε Unix epoch time. Θα ήθελα να
    δημιουργήσω ένα plot από τα συγκεκριμένα data σε σχέση με το χρόνο ανά 5λεπτα διαστήματα.
    Γνωρίζει κάποιος πώς γίνεται να το κάνω? Ευχαριστώ.

  2. #2
    Εγγραφή
    19-05-2012
    Ηλικία
    43
    Μηνύματα
    723
    Downloads
    2
    Uploads
    0
    ISP
    Forthnet
    δεν εχω χρησιμοποιησει ποτε unix epoch time αλλα λογικά θα πρεπει να το μετατρεψεις σε Date object.
    κατι σε as.Date(as.POSIXct(...))

  3. #3
    Εγγραφή
    29-12-2005
    Ηλικία
    45
    Μηνύματα
    4.522
    Downloads
    18
    Uploads
    0
    ISP
    Inalan
    Ξυπνάω αυτο το νήμα μετα απο αρκετά χρόνια για να ρωτήσω εαν μπορεί κάποιος να βοηθήσει.

    Απο ενα dataframe φιλτράρω με βαση κάποιες ημερομηνίες (στηλη dates) και θέλω στην στήλη indexbase και μόνο στα κελια της στήλης που έχουν φιλτραριστεί να γραφτεί πχ 0
    Γράφω το παρακάτω κωδικά κανει το φιλτράρισμα αλλα το "0" εμφανίζεται σε ολα τα κελιά της στήλης indexbase και οχι μονο σε αυτά που εχω φιλτραρει με βάση τις ημερομηνίες. Κάποια ιδέα;


    Ευχαριστώ και χρόνια πολλά!


    Κώδικας:
     dok_df2<- dok_df %>% select(indexbase,dates) %>% filter(dates > "2014-01-03"  %>%  mutate(indexbase = "0")


    ακυρο δεν εκλεινα το χρονικο παραθυρο και δεν φιλτραριζε σωστα
    Τελευταία επεξεργασία από το μέλος 8anos : 02-05-21 στις 17:44.
    "Από την άλλη ακούω: ου δύνασθε Θεώ δουλεύειν και μαμωνά. […]. Οταν ένας πολιτισμός αφήνει το Θεό και βάζει το μαμωνά (παντού το βλέπομε) για ανώτατο αγαθό, summum bonum, καταλαβαίνετε τι πολιτισμός πρέπει να είναι αυτός. Διαλέξαμε, φαίνεται, τον πολιτισμό που μας άξιζε. […]"

    Ζ.Λορεντζάτος,
    COLLECTANEA

  4. #4
    Εγγραφή
    29-12-2005
    Ηλικία
    45
    Μηνύματα
    4.522
    Downloads
    18
    Uploads
    0
    ISP
    Inalan
    Καλησπέρα,
    Μια βοηθεια γιατι εχω κολλησει
    εχω ενα data frame με την παρακατω μορφη:

    id A B C
    1313 31 Na 31
    2133 23 23 Na
    3233 Na 12 16
    4331 Na 25 Na
    5313 42 Na Na
    6424 Na Na Na


    Θωρητικά θα επρεπε και οι τρεις στήλες A,B,C να εχουν τις ιδιες τιμές.
    Στην πραγματικοτητα ομως εχουμε τις ιδες τιμες στην καλυτερη σε δυο στηλες ,ή μόνο μια τιμη σε μια απο τις στηλες ή ακομα χειροτερα διαφορετικες τιμες σε δυο ή τρεις στηλες.

    χρειαζομαι λοιπον κωδικα για να το φερω στην επιθυμητη μορφη του:


    id A B C
    1313 31 31 31
    2133 23 23 23
    3233 Na 12 16
    4331 25 25 25
    5313 42 42 42
    6424 Na Na Na

    Καποια προταση για το προς τα που να κοιταξω;
    Ευχαριστώ!
    "Από την άλλη ακούω: ου δύνασθε Θεώ δουλεύειν και μαμωνά. […]. Οταν ένας πολιτισμός αφήνει το Θεό και βάζει το μαμωνά (παντού το βλέπομε) για ανώτατο αγαθό, summum bonum, καταλαβαίνετε τι πολιτισμός πρέπει να είναι αυτός. Διαλέξαμε, φαίνεται, τον πολιτισμό που μας άξιζε. […]"

    Ζ.Λορεντζάτος,
    COLLECTANEA

  5. #5
    Εγγραφή
    15-11-2010
    Ηλικία
    34
    Μηνύματα
    29
    Downloads
    0
    Uploads
    0
    Σίγουρα υπάρχει και καλύτερος τρόπος, αλλά μπορείς να το κάνεις με μια for loop:

    Κώδικας:
    for ( i in 1:nrow(df) )
    {
       df[i,2:4] <- unique(na.omit(as.numeric(df[i,2:4])))
    }
    EDIT: Αυτό θα βγάλει πρόβλημα όμως αν και οι 3 στήλες έχουν NA σε μια γραμμή. Ή αν υπάρχουν 2 διαφορετικές τιμές σε μία γραμμή. Το παρακάτω καλύπτει και αυτές τις περιπτώσεις:

    Κώδικας:
    for ( i in 1:nrow(df) )
    {
       val_in_row <- unique(na.omit(as.numeric(df[i,2:4])))
       
       if ( length(val_in_row) == 1 )
       {
          df[i,2:4] <- val_in_row
       }
    }
    Τελευταία επεξεργασία από το μέλος EvoGenomics : 11-12-21 στις 02:20.

  6. #6
    Εγγραφή
    29-12-2005
    Ηλικία
    45
    Μηνύματα
    4.522
    Downloads
    18
    Uploads
    0
    ISP
    Inalan
    Σε ευχαριστώ! Δουλεύει κανονικά
    "Από την άλλη ακούω: ου δύνασθε Θεώ δουλεύειν και μαμωνά. […]. Οταν ένας πολιτισμός αφήνει το Θεό και βάζει το μαμωνά (παντού το βλέπομε) για ανώτατο αγαθό, summum bonum, καταλαβαίνετε τι πολιτισμός πρέπει να είναι αυτός. Διαλέξαμε, φαίνεται, τον πολιτισμό που μας άξιζε. […]"

    Ζ.Λορεντζάτος,
    COLLECTANEA

  7. #7
    Εγγραφή
    29-12-2005
    Ηλικία
    45
    Μηνύματα
    4.522
    Downloads
    18
    Uploads
    0
    ISP
    Inalan
    Νεα ερώτηση!

    έχω μια λίστα με μερικές χιλιάδες διευθύνσεις της wikimedia, από αυτές ξέρω οτι οι περισσότερες ισχύουν αλλά μερικές δυστυχώς δεν ισχύουν.
    Σε αυτές που ισχύουν υπάρχει απο μια ημερομηνία που θέλω να περάσω σε ένα dataframe για να τις αντιστοιχίσω σε μια παρατήρηση.
    χρησιμοποιώ μεταξύ των άλλων τα πακέτα rvest και polite.

    Το πρόβλημα:
    Η λούπα που έχω γράψει σταμάτα να δουλεύει όταν συναντήσει μια διεύθυνση που δεν επιστρέφει αποτέλεσμα επειδή η σελίδα δεν υπάρχει και περνάει μόνο τα αποτελέσματα που έχει παράξει μέχρι εκεί.
    Αν για παράδειγμα το δεύτερο σε σειρά λινκ δεν δουλεύει θα περάσει σε όλη την στήλη την ημερομηνία μόνο από την πρώτη σελίδα που βρήκε και δεν θα κοιτάξει για τις υπόλοιπες.

    Spoiler:
    Πατήστε στην εικόνα για να τη δείτε σε μεγέθυνση. 

Όνομα:  Screenshot from 2022-04-10 13-38-51.png 
Εμφανίσεις:  6 
Μέγεθος:  99,3 KB 
ID: 236861


    Κάποια ιδέα;
    Σας ευχαριστώ!

    H λούπα:

    Κώδικας:
    ena = 1
    raw_2020$year <- NA
    while (ena <= number_of_observations)
      for (i in 1: number_of_observations) {
        raw_2020$year <- bow(url_list[i]) %>% scrape() %>% html_nodes(".CategoryTreeItem") %>% html_text() %>% parse_number() 
        ena = ena +1  }
    - - - Updated - - -

    φαινεται οτι ειναι θεμα του polite

    More control over handling non-200 responses when scraping #32

    but it might be good if polite gave the user more freedom internally as to how it should handle missing or invalid URLs rather than necessarily returning NULL.
    "Από την άλλη ακούω: ου δύνασθε Θεώ δουλεύειν και μαμωνά. […]. Οταν ένας πολιτισμός αφήνει το Θεό και βάζει το μαμωνά (παντού το βλέπομε) για ανώτατο αγαθό, summum bonum, καταλαβαίνετε τι πολιτισμός πρέπει να είναι αυτός. Διαλέξαμε, φαίνεται, τον πολιτισμό που μας άξιζε. […]"

    Ζ.Λορεντζάτος,
    COLLECTANEA

  8. #8
    Εγγραφή
    29-12-2005
    Ηλικία
    45
    Μηνύματα
    4.522
    Downloads
    18
    Uploads
    0
    ISP
    Inalan
    Καλησπέρα και χρόνια πολλά!

    συναντώ το εξής πρόβλημα:
    εισαγωντας μια σειρα απο συνολα δεδομένων σε μια στηλη που οι τιμές της ειναι αριθμητικές τους διαβαζει ως χαρακτηρες. Οκ μεχρι εδω.

    Οταν προσπαθώ να δώσω στην στηλη αλλη κλαση πχ με το as.double() μετατρεπει ολες τις τιμές σε ΝΑ.

    Πατήστε στην εικόνα για να τη δείτε σε μεγέθυνση. 

Όνομα:  Screenshot from 2022-04-24 12-17-47.png 
Εμφανίσεις:  1 
Μέγεθος:  6,5 KB 
ID: 237264

    Δεν μπορω να καταλάβω γιατι. Οταν διαβάζω την στηλη φαίνεται μπροστά απο την τιμη να υπάρχει ενα διάστημα μπορεί αυτο να προκαλεί αυτο το προβλημα;

    Πατήστε στην εικόνα για να τη δείτε σε μεγέθυνση. 

Όνομα:  Screenshot from 2022-04-24 12-28-09.png 
Εμφανίσεις:  5 
Μέγεθος:  93,1 KB 
ID: 237263
    "Από την άλλη ακούω: ου δύνασθε Θεώ δουλεύειν και μαμωνά. […]. Οταν ένας πολιτισμός αφήνει το Θεό και βάζει το μαμωνά (παντού το βλέπομε) για ανώτατο αγαθό, summum bonum, καταλαβαίνετε τι πολιτισμός πρέπει να είναι αυτός. Διαλέξαμε, φαίνεται, τον πολιτισμό που μας άξιζε. […]"

    Ζ.Λορεντζάτος,
    COLLECTANEA

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές

  • Δεν μπορείτε να δημοσιεύσετε νέα θέματα
  • Δεν μπορείτε να δημοσιεύσετε νέα μηνύματα
  • Δεν μπορείτε να αναρτήσετε συνημμένα
  • Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
  •  
  • Τα BB code είναι σε λειτουργία
  • Τα Smilies είναι σε λειτουργία
  • Το [IMG] είναι σε λειτουργία
  • Το [VIDEO] είναι σε λειτουργία
  • Το HTML είναι εκτός λειτουργίας